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Dilwyn Jones Computing has 
supplied QL World with in- 
formation on five programs 
which thenew company is now 
marketing. 

Dilwyn Jones is already well 
known to established OL users 
as the author of Page Designer 
2, published by Sector Soft- 
ware, and other programs in- 
cluding some in the public do- 
main. He hopes to establish 
himself as a QL supplier after 
some success with his pro- 
grams through private adver- 
tising. 

QL Basic Reporter is a pro- 

| gramming utility for pro- 
grammers in SuperBasic and 
compiled Basic. It has a vari- 
ety of listing and reporting 
functions to list variable names, 
types, procedure and function 
names and lines, machine code 
extensions and execution ad- 
dresses, and others. All lists 
can be sorted into alphabetical 
| order and printed to the screen 
or any QL device. The pro- 


gram is useful among other 
things for finding typos and 
variable name clashes in list- 
ings. The program runs on an 
unexpanded QL and is de- 
signed to be easy to use. Basic 
Reporter is £10 including 
manual and EEC postage. 

QL Vision Mixer is a screen 
sequencer for display and ad- 
vertising. Screens and graph- 
ics can be loaded from just 
about any QL source, and then 
displayed at random or froma 
menu sequence, with speed 
and pauses user definable, in- 
cluding key-stepped displays. 
OL Vision Mixer needs at least 
256K of expansion, and costs 
£10 including EEC postage. 

QOL Quick Posters is an aid to 
laying out text-only display 
sheets quickly. It exploits 
many little-used printer facili- 
ties. Designed for use with 24- 
pin printers — printers capable 
of doing enlarged textand with 
a choice of fonts are the most 
likely candidates. The program 


Assistance from 
Archive Author 


Two mistakes have come to 
lightin the Archive Power series, 
for which I must accept re- 
sponsibility. The first is an er- 
ror inthe June 1990 listing, p34, 
towards the end of proc 
NOTEPAD. The line com- 
mencing ‘if OPTION=4: error 
PAGETEMP- ....’ should read 
“if OPTION=4: error 
PAGEPRINT, ....”. Then in the 
August 1990 issue, in the text 
on page 37, there is a list of 
procedures to be included in 
the calendar program. This 
includes the non-existant pro- 
cedure GETSEDIT . It should 
have been GETSINPUT. Sorry 
to anyone frustrated by this. 
Some readers have also found 
| difficulty getting the program 
to run at all, due to confusion 
over how to save a program in 


object format. If you save a 
program in the normal way, 
by typing SAVE “MYPROG", 
it will be stored as a text file, 
with the name 
“MYPROG PRG”, and ifitisa 
long program it will take an 
age to load even from disk. 
However, Psion also allow 
saving in a ‘tokenised’ format, 
with the line SAVE OBJECT 
“MYPROG”. The file will then 
have the name 
“MYPROG PRO”. The main 
programs (NOTE PAD, CAL- 
ENDAR and TODOLIST) 
should all be saved with this 
object form of the save com- 
mand, to make use of the rapid 
loading it provides. If youhave 
not done this, you will get an 
error message when July’s ini- 
tialisation programis run, say- 
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hasno fonts of its own, but will 
improve the quality of large- 
size text, add borders, preview 
on-screen, load and save, and 
has a freely reconfigurable 
printer driver. A sample 
printout froma Star LC24-10is 
available from the publisher 
with an sae. Quick Posters 
costs £10 including EEC post- 
age. 

QL Wordscheck takes any 
Ascii or Quill _doc file and 
provides a total word-count 
and the number of different 
words used. Output can be 
sent to screen, printer or file. 
The output can be given a 
number of user-definable 
variables such as a count of 
words over a certain length. 

Wordscheck runs on an 
unexpanded QLand can multi- 
task. The price is £6 including 
EEC postage. 

QL Home Budget is an un- 
dated version of the already- 
established finance, income tax 
and capital gains tax calcula- 
tor. Personal expenditure and 
bills can be entered asa number 
of accounts with itemised pay- 


The All Formats Computer Fair 
will be taking place againatthe 
New Horticultural Hall, 
Greycoat St., Westminster, 
London on Saturday 1 Septem- 
ber and Saturday 4 November. 

A report reached OL World 
and its sister magazines that 
one trader reached the July fair 
with several thousand cassettes 
for various computers, ex-stock 
of from a retailer which had 
closed down. The haul was 
said to include around 2000 


ing ‘cannot open file’. The so- 
lution is simple. From the Ar- 
chive command line, simply 
enter LOAD ‘NOTEPAD? fol- 
lowed by SAVE OBJECT 
‘NOTEPAD’ and then try run- 
ning the Desktop program. 
Robin Stevenson 


ments. The tax calculator as- 
sists in calculating personal in- 
come tax for any year from 
1883 /4 onwards, and includes 
separate taxation for married 
couples. Changes in taxation 
rules can be user-updated. It 
also covers “indexed” asset 
costs for capital gains tax pur- 
poses. 

The current version ad- 
dresses points raised in the 
May 1990 OL World review, 
plus extended error-trapping 
and multitasking using EXEC 
and CTRL C. 

Home Budget costs £20 in- 
cluding EEC postage. It is 
QLiberated and runs on an 
unexpanded QL. 

Postage outside the EEC area 
will be added at cost. Ail pro- 
grams are available on mdv, 
3.5 in disk or 5.25 in disk, and 
have printed manuals with the 
exception of Quick Poster, 
which includes instructions as 
a Quill doc file. 

Enquiries to Dilwyn Jones 
Computing, 41 Bro Emrys, 
Tal-y-bont, Bangor, Gwynedd 
LL57 3YT. 


The show for the enthusia 


SAT. 
SLL 


The New Hall of the Royal 
Horticultural Society 


Greyeont & Ebverton Street 
Westminster - Lendan | 
? 


Nearest lubos 
a 


St Jameg Park 
Adrrssan £9 00 


ware, which was “all gone by 
2am”. Windfalls like this are of 
course unpredictable, but QL 
visitors must have thought it 
was Christmas. 

For advance £3.00 tickets and 
information, contact Mike 
Hayes, 9 Midgrove, Delph, 
Oldham OB1 5EJ, tel. 0457 
875229. 


Mlpen Qaeanwet 


somebody with the answer, or just sound off 


Open Channel is where you have the 
opportunity to voice your opinions in 
Sinclair QL World. Whether you want to ask 
for help with a technical problem, provide 


Irecently sent my Minerva rom 
for upgrade. The postman en- 
sured that the rom pcb stapled 
itself and the rest of the pack- 
age contents together. QView, 
however, replaced the pcb at 
no extra charge, and returned 
my upgrade eight days later. 

Having installed Minerva 
1.82, [found that Supercharged 
programs would nolongerrun. 
Phone calls to Stuart McKnight 
of QView and Freddy Vachha 
of Digital Precision ensured. 
Stuart explained the changes 
to Minerva which makes it less 
tolerant of programs which 
circumvent Qdos, and Freddy 
explained to me the reasons 
behind the incompatibility and 
my options. He then offered an 
upgrade to Turbo with a trade- 
in allowance of £30 for 
Supercharge. This was on top of 
the generous package dis- 
counts, 


Both Stuart and Freddy | 
found to be helpful, informed, 
enthusiastic and shared my 
loathing of the IBM PC. At work 
Iam forced to use an XT clone 
with PC Write and Perfect 
Writer, where reformatting ofa 
large document, line by line, 
could take all day. This is 
something that the OL running 
DP’s The Editor would usually 
achieve in about 30 minutes; 
five minutes, if lcould fit Mira- 
cle Systems’ 68020 prototype 
board. 

My thanks to Tony Tebby, 
Jan Jones, Quanta, OView, 
Digital Precision, Miracle Sys- 
tems and QL World for making 
the OL what it is. 

B R Seidel 
Manchester 


Further toareader query about 
Dir_To_Archive_Bas, 1 have 
suggested that he check his 


about something which bothers you, write 
to: Open Channel, Sinclair OL World, 
116/120 Goswell Road, London EC1v 7QD. 


typing especially in procedures 
read_tempdir in lines 580 and 
680 and open_file in lines 370 
to 440, as these lines may have 
been mistyped. It is critical that 
there are no omissions of semi- 
colons, backslashes, quote 
marks or ampersands as these 
are essential to the running of 
the routine. I have checked the 
listing as published and it is 
right. 
Terry McKnight 
Walkden, Manchester 


Thank you for publishing my 
program Chemistry in the Sep- 
tember issue. I had given up all 
hope of seeing it in print. How- 
ever, on checking the listing, I 
found an omission in line 750. 
After the last character on that 
line there should be two spaces 
and a “close of string” indica- 
tor ( ‘). The line should look 
something like this: 


750 PAPER 4,2: INK 7: AT 2,74: 
PRINT ‘ He ‘: AT 3,74: PRINT 
‘ 2 ‘ 
This was probably spotted by 
many readers as the line would 
not be accepted by the QL 
without the final character, but 
I would like to point it out any- 
way. 

A similar gremlin also at- 
tacked lines 1750 and 1770. 

Also, if anyone has compiled 
the rest of the program, then 
the absence of a “Quit” option 
forces the user to reset the OL 
to escape. This may not be the 
case when using a front-end 
utility (I still don’t own one) 
but it is an obvious omission. 
Adding the following lines 
provides the necessary func- 
tion: 

Change line 1840 by altering 
opt$>’3’ to optS>’4 

Add: 


1805 PRINT: PRINT ‘4) Quit 
CHEMISTRY’ 
1875 IF opt$=4 THEN : quit 


1882 DEFine PROCedure quit 
1884 CLS: AT 10, 10: PRINT 
‘Bye’ 

1886 PAUSE 300: CLS: STOP 
1888 END DEFine 


After RENUMbering, the last 
line should be 3040, 

The program still runs fine 
without this little addition, and 
runs and compilessuccessfully 
withit, evenif parts of the code 
make some programmers 
wince! 

On a different note, | would 
just like to add all the usual 
stuff about the magazine being 
wonderful, keep up the good 
work, will anyone produce a 
‘proper’ QL Mark II and sup- 
port for us all now? 

I also hope that this letter 
meets at least 50% of the wishes 
which Bryan Davies expressed 
in September's Troubleshooter. 
It hasn’t been checked by any- 
thing other than myself. There 
is only one deliberate spelling 
mistache; anything else must 
be Monday Morning Blues at 
the typesetting office. 

Ian Thompson 
Ripon 
Yorks 


Editor's comment: Probably Fri- 
day Afternoon Blues. 


Ihave heard on and off about the 
lack of a suitable mouse for the 
QL. I find this surprising as I have 
a mouse from Jochen Merz soft- 
ware here in Germany. It works 
perfectly, and I have had good 


‘service from Jochen; I see he now 


advertises in QL World, linstalled 
theinterfacemyselfand iflcando 
it, it cannot be very difficult. I 
must say that lsweated a bit but it 
turned out well. The main com- 
plication came from the Schon 
interface, which normally inter- 
feres with it, but I put in a couple 
of spacers to lift it up. 
Peter Lund 
Munster, West Germany 
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Joe Haftke, author of Home 
Budget, has terminated a sales 
and marketing agreement with 
QL supplier PDQL as of 29 July 
1990, following the issue of the 
required legal notices, and re- 
quested return of all material. 
The marketing agreement with 
PDOQL retained copyright tothe 
author. At the time of report- 
ing Mr. Hatfke has received 
no response from PDQL. 

PDQOL has been under a 
shadow in recent months fol- 
lowing a spate of complaints 
from customers, including re- 
ports of non-delivery of goods 
after payment, repeated fail- 
ure to meet delivery promises, 
and doubled charges on credit 
card accounts. 

Mr Haftke dates his growing 
dissatisfaction “with PDQL’s 
performance, or the lack of it” 
from some considerable time 
before a review of Home 
Budget appeared in the May 
1990 issue of OL World. 

An updated and improved 
release of Home Budgetisnow 
available from Dilwyn Jones 
| Computing, who now have 
sales and marketing rights. 
“The contrast is a pleasure to 
experience”, writes Mr Haftke 
of the new agreement. 

Enquiries to Dilwyn Jones 
Computing, 4 Bro Emrys, 
Tal-y-Bont, Bangor, Gwyn- 
edd LL57 3YT. Tel. 0248 
354023. 


Digitiser 


CL Systems proprietor C L 
Lang is proposing to release a 
new QL digitiser on the mar- 
ket in mid-October, 

The COV1 real time video 
digitiser is designed to capture 
and freeze frames froma video 
recorder, camera or other PAL- 
compatible video source in real 
time (about 20 milliseconds). 
The frames thus captured can 
bestored, printed or loaded into 
desktop publishing programs. 
Some of the potential uses pro- 
jected by the manufacturer in- 
clude slow frame recording, 
video graphics to printer, and 
capturing images of 3-D objects 
for desktop publishing. 

The specifications include 
one odd or even frame in 


20ms, display rate 5 frames 
per second in quarter-screen 
mode, 2.7 fps in full screen 
mode, resolution 256 by 256 
pixels in eight grey levels, 
black level adjustment, dis- 
play merge (OR, XOR), invert 
and negative, full quarter or 4x 
quarter displays. The CQV1 


will run on mdv, 3.5 in or 5.25: 


in disk, on an unexpanded QL 
via the rom port. 

Theprojected priceis £120 plus 
£3 p&p. For further informa- 
tion, samples or specification 
sheet contact 403 Chapter Road, 
Dollis Hill, London NW25NG, 
Tel. 081 459 1351. OL World 
hopes to try out and review the 
CQV1 as soon as production 
models are available. 


C connections corrected 


Following last month’s 
backslash corrections to Pro- 
gramming in C, we have some 
more details to correct, mainly 
involving confusion between 
the uses of hyphens and un- 
derscores. 


In Fig. 2, line 3: Printf (“My 
first C program \ndisplays two 
lines”); 


On page 23, column 1: 


Line 34 device flpl_ use: 


Line 38 flp2_test -p -m (EN- 
TER) 

Line 41 code is in a file named 
flp2_test_c, that it ... 


On page 23, column 2: 


Line 5 _c doesn’t need to be ... 
Line 8 named flp2_test_obj 
Line 11 exec_w flpl_cg (EN- 
TER) 

Line 19 filenamed flp2_test_obj 


On page 23, column 3, line 2: 
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exec_w flp2_text_exe (ENTER) 


Fig. 3: 


Line 1 flp2_test_c> 
flp2_test_obj > flp2_test_exe 


And finally, a missing line on 
page 22, column 2, line 8: 


... compatible) environment, a 
Unix environment and a VME 
environment (the operating 
system ...) 


DataDesign by Progs - Van der 
Auwera is now available as a 
demo version for £3 or Belgian 
Francs 180 (cash or Visa). This 
version is said to have all the 
facilities of the operational 
package, except the Save com- 
mands. Potential users can ex- 
periment with the demo on 
their own machines before de- 
ciding whether or not to buy 
the program. 

Enquiries to Progs - Van der 
Auwera, Haachtstraat 92, 3020 
Veltem, Belgium. 


SQLUG 
_celebrates— 


SCOTTISH 


QL Users Group 


NEWSLETTER 


Special FIRST ANNIVERSARY Edition! 
The Scottish OL Users Group 
(SQLUG) is entering its second | 
year with a celebratory First 
Anniversary issue of its news- 
letter, appropriately known as 
the Special Edition. The anni- 
versary issue’s main feature is 
a series of historical articles 
about the QL. 

The Group meets monthly, 


usually for a software or hard- 
ware demonstration and dis- 


‘cussion. The September meet- 


ing, for instance, is scheduled 
to include a video digitising 
session and an in-depth look at 
PC Conqueror. 

The annual membership fee 
is currently £6 renewable in 
August, and pro rata at any 
other time of year. Enquiries to 
SOLUG, Alan Pemberton, 65 | 
Lingerwood Road, Newton- 
grange, Midlothian EH224Q0Q 
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nenquiry from a reader 
about printing from 
Flashback and text* 

made the point 

which has often been heard in 
the past — users have prob- 
lems with printing, from any 
program. What may appear a 
simple procedure to an experi- 
enced user, can be unknown, 
or very complicated, to some- 
one who does not spend all 
day, every day using the QL. 
Here is what was suggested to 
this reader. 

You can print databases di- 
rectly from FlashBack, rather 
than going through another 
program. As FlashBack is flex- 
ible, it should normally be pos- 
sible todoany editing required 
within it. However, there is no 
great difficulty writing the file 
out in a form which can be 
edited in text’, and subse- 
quently printed out there. 

Using FlashBack alone, the 
<CTRL-P> keying enables the 
sending of a database direct to 
a printer. If you key <CTRL- 
P>, you will be offered SER] as 
the default device to print to 
and most users should accept 
that. You can choose PAR if 
using a Sandy SuperQ board 
with parallel printer port. 

The first illustration shows 
one record of a typical name- 
and-address database, after 
<CTRL-P> has been keyed; the 
program is waiting to be told 
whether or not the printer is 
connected (and switched on). 
There is one step to take before 
using the Print command, 
however — decide whether or 
not you want to print the whole 
file. To print only part of the 
file, use the Group command 


PRINTING FRO 


FLASHBACK 


Bryan Davies offers assistance with 
printing databases directly from 
Flashback, or via text®’. 


first, toselect those records you 
want printed. 

You can also use the Xclude 
command after Group, to re- 
move odd records that meet 
the Group criteria but are not 
wanted in the printout. For ex- 
ample, to produce the printout 
in the second illustration, 
<CTRL-G> was keyed to acti- 
vate the Group command, the 
string <QL> was typed onto 
the input line, then the up-cur- 
sor key was used to set the 
FIELD number to 00 to ensure 
that records with <QL> any- 
where in them were selected. 
This latter action is important, 
because Grouping on any field 
other than 00 only works if the 
string you enter as the Group- 
ing criterion is at the start of the 
field, and the <QL> string was 
part-way through FIELD 04 in 
these records. 

Keying ENTER twice causes 
Grouping to occur, from the 
start of the database. In this 
case, the total number of 
records resulting was about 30, 
but that was whittled down to 
12 using the <CTRL-X> com- 


| Bk el, OCI UAL arte, hb Pe? 
H Olel, (AM)-A71I11 LAL printers-tach, supp. Rob Papper) 
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mand; some of the people in 
the 30 might not have wanted 
their addresses printed here 
(the editor for instance!). You 
Xcludeby displaying the record 
that is not wanted in the Group 
or Xclude commands —all you 
have to do to get all records 
back is key <CTRL-K> to Kill 
the Group. 

Youarenow ready to print, as 
faras the program is concerned, 
but the problem with printing 
this way is the format of the 
text on the page. FlashBack it- 
self (without the Report Gen- 
erator functions) does not per- 
mit you to send instructions to 
the printer for formatting, so 
what comes out ona dot-matrix 
printer is usually 10-pitch (Pica) 
print, running from one edge 
of the paper to the other. This is 
easily altered by sending the 
appropriate commands to the 
printer from the SuperBasic 
command line first. Press ESC 
(then CTRL-C if necessary) to 
get out of FB and into SB, then 
type and ENTER a line such as 
the following one: 

OPEN#7,SERI:PRINT#7,CHR$ 


(27)&CHR$(108)&CHRS$(10)& 

CHR$27)&CHR&77):;CLOSE#7 

This sets the left margin to 10 
characters, and the typestyle to 
12-pitch Elite. Note that you 
may have touse different codes 
if your printer is not “Epson- 
compatible”. You can then go 
back to FlashBack and print 
from there, using the new 
printer settings. 

Thesecond illustration shows 
the printout of the Group, 
without any further manipu- 
lation. There are a couple of 
points to note on the printout. 
The first field (and the second 
in one case) is printed starting 
one character to the right of the 
start of the line; this is very 
likely not sufficiently annoy- 
ing to be worth trying to deal 
with. There are three blank lines 
between each pair of records. 
This point may be of enough 
importance to cause the user to 
try the “transfer method” of 
printing, via another program, 
as detailed below. 

To transfer the file to text®’, or 
any other WP/editor program, 
use <CTRL-P> again but 
change the device to whatever 
you wish to use for temporary 
storage; RAM disk is the fast- 
est. You have to add the file 
namealso; for example, instead 
of SERI, set the device to 
RAM PRINT. All the com- 
ments about Grouping apply 
as before. After the Grouped 
database has been printed to 
RAM disk, you can Import this 
file into T87 using the com- 
mand <F3 F 1 A n>, that is, 
Importitas an ASCII file, in the 
“normal” (line-by-line) fash- 
ion. Illustration three shows the 
file as it looks after Importing 


fidean apret Gilpin Road, Admaston, Telford, asupente TFS O60. 


el. (52)- (@.y Dennis Briggs) 
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acs ig Py laa EYSROUUT 1UI4 JOR (4 NUKE LTWSCENL, CYRROULT, 


icksh 
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Tel. (O2723)-277050 (QL? 


Tel. (O952)-255895 (Ot; 


Tel. (O279)-443521 (GL) 


Aladdink, Dept. QL, 
Berwickshire TD14 SAP). 
Tel. (OB89O07)-S0945 (Qt; 


Alexander, John, 


Tel. (QL) 


Ark Distribution, 
Tel. 


Ashcroft, T, 


Adman Services, 53 Gilpin Road, 


Akhter Group plc, Akhter House, 


Fieldhouse Drive, 


Corve Farm House, 
(O9B3)=-79496 (QLy Archivist etc) 


Mitchell Avenue, 


Admaston, 
Dennis Briggs) 


Perry Road, 


Freepost, Eyemouth TD1i4 SBR (4 Hurker Crescent, 


ribbon re-inking, 


Telford, 


Corve Lane, 


{(QLy scientific references database) 


Aholasoft, Kirjurintie 3, 


Tel. 


Armin Breuer vA. GBR, Fostfach 2234, 


Tel. 
Stephen Michels) 


Tel. 7 (QL3; ROMs, mdvs) 


Astracom 
Tel. (0480)-4127884 (QL; 


Tel. (O71)-224-B320 (OL¢ 


into T87. Bear in mind that the 
right margin setin T87 may not 
match that used in FB and you 
may have to adjust it to get the 
display right. The three blank 
lines are still there between 
records, and you may choose 
to remove some or all of them; 
you can also do any other edit- 
ing of the records that may be 
necessary, such as pulling the 
first lines back to the left mar- 
gin. 

Transferring a database this 
way has the merit of disposing 
of FB’s own formatting codes. 
You don’t need to get rid of 
unwanted material at startand 
finish of the file, once it has 
been Imported into T87. In 
terms of time and convenience, 
there is little to choose between 
the transfer method just out- 
lined, and direct Import of the 
_DBA file into T87, as described 
below. 

It is desirable to set both the 
typestyle and the margins you 
wish to use before reading any 
file into T87. Use the same 
command as when reading-in 


Atkinson, Joe, 36 Ranelagh Road, 


ABS Computer Supplies, 4 Snheuldham Street, 
dises, ribbons etc) 


SF-05400 Jokela, 


modem) 


the Printed file: <F3 FI An>.A 
point to remember about T87 is 
that the set allocated memory 
(using the <F3 C P M nn> com- 
mand) may have to be consid- 
erably greater than the size of 
files to be Imported. The data- 
base used here occupied about 
50KB on disk but required a 
memory setting of over I50KB 
in T87. Even though you may 
have grouped the file in FB, 
you will get the whole of the 
database when Importing the 
_DBA file into T87. This may be 
acceptable, but it can mean a 
lot of manipulation if you only 
want a handful of records out 
of hundreds. You may have to 
use the Search and Block Copy 
functions several times to get 
the records you need all to- 
gether. 

When you read a _DBA file 
directly into T87, you need to 
delete a block of information at 
the start of the file which is for 
T87’s own use and of no inter- 
est when printing. Move down 
the file until you find where the 
first record of your database is, 
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Telford, 


Harlow, 


N.&. Godwin) 


Chale Green, 


Finland. 
°7 (OL3; Jussi Koskinen, Sam The Little Spaceman) 


D-4104 Seeheim—-Jugenheim 2, 
(01049) -6257-7244 (QL/Thor:Armin Breuer, Dirk Schafer, Andreas Brev, 


Adder Publishing Ltd., F.9. Box 148, Cambridge CB1 2EQ. 


Shropshire TFS OBG. 


Essex CMi8 7PN. 


Eyemouth, 


Shropshire TF2 


Isle Of Wight. 


Newcastle-upon—Tyne NES 


Germany. 


Ealing, London WS SRJ. 


London W1H SFG. 


then go back to the top and use 
the Block Delete command to 


get rid of everything prior to 
that line. Do the same thing at 
the end of the file, to remove 
unwanted material from there 
also. Record fields should be 
onseparate lines, with no blank 
lines between fields or records, 
provided you selected the 
“Normal” option when Im- 
porting the file. You are then 
ready to print, or you may want 
to edit out the odd spaces on 
the first lines of records, select 
particular records, ete. 

There is another way of han- 
dling printout. You can make 
use of FB’s ability to “drop” 
records or fields into underly- 
ing programs, and transfer 
records that way, one ata time. 
The fourth illustration shows 
one record transferred to T87 
this way, with the FB window 
at the bottom of the screen 
ready for the next transfer. 
Where name-and-address 
records are concerned, it may 
be desirable to reduce the space 
taken by the printout.One way 
of compressing the output is to 
use condensed (17 characters 
perinch) print. This canbe sent 
from the SB command line, and 
you could dotwoseparate runs 
direct from FB, winding the 
paper back between them and 
resetting the left margin so that 
you get two columns. Alterna- 
tively, once the records have 
been transferred to T87, you 
can use the Columns function 
there, together with condensed 
print. Don’tbe afraid to experi- 
ment, but use a spare copy of 
your treasured database file . . . 


+ 


Ute Publishing Ltd, Puls rw 148, Cambri (BL ZED, OTe! (223)-2708R 
thier Publishing Ltd, Put, Box 148, Cambridge CBL 22, 


TRB (WL) 


Rag No 28681 
Printer Conmected 4/4 


Bat2 


is article sictian how you can 


accelerate QL and Thor disk ac- 
cess, and check the contents of 
any drive quickly and comprehen- 


sively. CHECK_DISK_BAS suits almost _ 


all QL floppy disk systems, while 


FAST. COMPARE_BAS works with | 
| microdrives, ram disks, floppies or even 


| hard disk sub-directories. 


The key to speeding up disk access lies 3 
in anticipating the hardware and asking 
for the right thing at the right time. — 


FAST_FORMAT_BAS re-programs the 


| Qdos disk allocation scheme, giving faster - 


| access without sacrificing compatibility. 


| data on any QL disk is held in concentric © 


The new fast format disks are 
interchangable with old format disks, but 


load and save large files ii Seah 
quickly. 


These programs are written in Basid, as 
direct access to QL disks is done the 
same way from SuperBasic as from as- 
sembler. There's little point in writing — 
machine code when compilers can do it — 
for you; a well-designed program will - 


Simon Goodwin give 
QL and Thor drives th 
DIY. treatment. 2 


“The other group is file zero — the di- oe 
rectory, containing a 64 byte Qdos flo. 
header for: every file on the disk, including | 
itself. This file occupies one group for| 
: “every 24 files onthedisk.Fileheadersare | 

discussed in QL World — February 1988, | 


and Volume F of DIY Toolkit. 


- Most computers cannot use adrive until | 


the user notes its details in a ‘system file’, 


like CONFIG.SYS on MSDOS. This is 


colt Wan nanuatiaiions: Coinaitibere 4 


AmigaDOS (developed by Metacomco in 


Bristol) dispenses with most of the sector 
_ gaps, allowing | 880K in lumps of 5. 5K, one 
lump per track on each side of the disk. 
_ The Amiga can fit 160K extra on a disk, 
but programs have to read a full track, 
even if they only want a few bytes. 


The larger the lumps, the more disk 


"space can be used by files, and the faster 
_ large files can be accessed, butthe smaller 
the lumps, the more files you can getona 
_ disk; lumps are rarely shared, as that 


would make individual files hard ‘to find or 


extend. 
Asa file grows, previously unused sec- i 


tors Less be allocated to a and e usage 


probably spend most ofits time waiting for 


the drive. 


QL World has printed many articles 
| about disk expansion, but these have _ 
| tended to aim at hardware, discussing — 


interfaces, cables and drives. |shallfocus © 


on software. The QL harbours some neat 


design ideas; it's amazing what you can /- 2 


do if you know how. 


Bootstrapping 


This article is primarily written for those 
| who have a disk system up and running, © 
| and want to get the best from it. Ithelps to 


define some mechanical terms first. The 


| rings, or ‘tracks’, on either or both sides of 


| the disk; the number of tracks on each — 


| side is usually 40 or 80. 


Every track holds nine ‘sectors’, each of 
512 bytes, giving a top capacity of 80 
tracks = 2 sides = 9 sectors = 512 bytes = 
737280 bytes, or 720K. 


Other information is recorded on the 


disk when you format it, in-between the 


sectors, so the system can compensate ~ 


for small variations in rotational speed 
and identify any track or sector as it passes 


the sensing head. The extra data explains 
} why a 720K QL drive is said to have an 


| ‘unformatted’ capacity of one megabyte. 


The QL scheme may seem wasteful, but - 


ofthree: sectors, so that evenan. empty file 
__uses three sectors (1. 5K). 
Files of more than 1472 bytes use six or 


more sectors; 64 bytes atthe start of each 
file are used for a dummy directory prefix. 


64+1472=1536, the allocation size in. 


bytes. 

This ‘granularity’ reduces the number of 
groups on the disk, and hence cuts the 
processing overhead involved in reserv- 
ing or discarding storage. A 1440 sector 


disk can hold no more than 480 files . 


(1440/3 is 480). 

The practical limit is a little lower: when 
you format a disk to 1440 sectors, up to 
1434 are available for files. The other six 
are used by the map and directory. 

The first ‘missing’ group holds the disk 
map with the disk name and format de- 
tails, plus three bytes for each of 480 
groups, recording the Lag number ple 


een sss each... 


_ often obscure and inconvenient. The QL | 4 
isabetterjudgeofadiskthanmanyusers,} =| 
so Qdos works out the number of tracks | 


and sides on a disk or drive automatically. | 
When you present a new disk the sys- | 


tem interrogates the drive to find out its 


capacity and the rate it can ‘step’ from one | 
track to another. This explains the rattle 


and buzz you hear as the disk starts up. | 
_ This system of trial and error is one of the | _ 

- QL's finest features; it's fast, flexible and | — 
gets the best out of the machine and your | — 
drives. Be, 


The data formatona aL disk was stand- | 


-ardised by Sinclair, but the codes and 


commands were not. More than a dozen 
QL disk systems have been marketed | 


since 1984; most of these use variants of | 


Tony Tebby's QFLP system rom, but 
Quest, Dattel, MCS and Sinclair Re-- 
search opted for alternatives. 

My programs assume you have aQFLP | 


_ fom, or compatible system, though | 


FAST_COMPARE_BAS will work on any 


“machine with the toolkit command 


WSTAT. FAST_FORMAT and 
CHECK_DISK need the QFLP extension | 
that allows you to read and write sectors | 
as 512 byte strings; you! re OK if your 
machine accepts: 

OPEN_IN #3, “FLP1_*D2D” 


| This command gives channel #3 excl u- a 


sive control over sectors of drive FLP1. | 


- The OPEN_IN stops old, incompatible | 


systems creating afile called“FLP1_*D2D” 


- but it does not stop you writing sectors or | 
allow access to other tasks. 


Channel #3 can then read and write any 
sector, given only the sector number (1- 
9), track (0-79) and side (0 or 1). The | 
mechanism to send this disk address is | 
rather eccentric; you multiply and add the } 
component values, and use the compos- 
ite thus found to set the file pointer. | 
SET_POSITION #3, SECTOR + (TRACK | 
“256 + SIDE) * 256 


SET_POSITION is a Turbo Toolkit com- | 
mand; Toolkit 2users can substitute GET | 
and PUT, prefixing the pointer value with 

a backslash (\), located above the Enter 
key on a QL. 

At a pinch you could use PAN and 
SCROLL, but it would take 160 succes- | 
sive integer offsets to get from track 0 to | 
track 79, and that seems gratuitous. 

S$ ste ideq 


side ala Sein Sige berate 


documentation, so there's extra informa- 
tion on the DIY Toolkit disk, including 
standard directory and sector map de- 
tails. Quanta members with an interest in 
other disk systems can obtain source and 
compiled code for my TRS-80 MultiDOS 
reader, from the group library. 

These programs suit controllers from 
Miracle Systems, PCML, Computermate, 
Cumana, Silicon Express, Technology 
Research, Sandy, CST and Thor Interna- 
tional. Suitable upgrades to the QFLP 
standard are available for Medic systems, 
and Sinclair's own model, produced by 
MicroPeripherals. Call Care Electronics 
for upgrade details. 

Old MicroPeripherals roms call the disk 
device FDK, andinclude DGET and DPUT 
commands, which read and write indi- 
vidual sectors, rather than the QFLP 
equivalents. The French Dattel disk sys- 
tem opts for FLD1 and FLD2, has its own 
direct sector commands RS and WS, eas- 
ily adapted. 

The expansion unit from Micro Control 
Systems was designed and programmed 
by Mark Snape; early versions included 
many good ideas, but fell short of the 
QFLP standard. Users tell me it has been 
fully compatible for the last couple of years, 
once the MCS Toolkit rom is fitted. 

As far as | know, the only QL DOS that 
refuses to read sectors directly was the 
firstto arrive. Quest's oddballinterface was 
launched, amid a deluge of green plastic 
leaping frogs, in 1984. This system keeps 
its operating code on microdrive cartridge, 
rather than rom, and gets confused by 
files longer than 32K. 

| am keen to hear from anyone using 
disk systems | have not mentioned, like 
the QLinterfaces advertised by Kempston 
Micro Electronics. 

Like all popular eproms, QFLP software 
comes in many versions. In general high 
version numbers are best, but later 
changes are often intended to compen- 
sate for the quirks of particular drives. It 
may not be worth seeking an upgrade if 
your drives are already reliable. 

Version 1.07 was the first to support 
direct sector access, and appeared in the 
original CST Qdiskinterface. 1.08 and 1.09 
fixed problems with LBYTES from 
microdrive and access to partly-corrupted 
disks. Version 1.10 was the first able to 
read and write old ‘single density’ disks, 
on interfaces with an appropriate control 
chip. 

Version 1.11 was functionally identical 
to 1.10, but the code in the rom was re- 
organised. Version 1.12 featured 
much-improved detection of the drive's 
optimum stepping rate. QFLP 1.13 incor- 
porated tweaks to suita batch of Mitsubishi 
drives, encased by many suppliers, which 
provide unusually short ‘index’ pulses. 

Version 1.14is amajor upgrade. It adds 
commands to control speed and security, 
and set up obscure track counts. See the 
details of FLP_OPT or FLP_TRACK and 
FLP_SEC in your disk manual, or on the 
DIY disk. The FORMAT command was 
re-written and error checking improved. 
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Troubleshooter recently doubted that 
anyone might format to 360K in a 720K 
drive, but | find it useful. If you give QFLP 
a disk name that has an asterisk as an 
eleventh character, the disk is formatted 
on one side, giving half the capacity in 
about 60% of the time: 


FORMAT “FLP1_SingleSide*” 


This can format a disk for a few files 
quickly, or for a single-sided drive. 

QFLP 1.14 fixed a silly bug in FORMAT, 
which occasionally produced a single- 
sided format by chance. The correction 
stops QFLP looking for the asterisk un- 
less aneleven character name is supplied. 

The toolkit commands WTV and WMON 
have similar bugs; they read their param- 
eters from memory, even if they are not 
supplied; this causes inconsistent results 
which depend on the values lying around 
in memory. 

QFLP V1.14 fixed a serious bug that 
could destroy the disk directory if you 
accidentally tried to load a null file (zero 
bytes) with LBYTES or EXEC. V1.15 of 
QFLP was adapted for the 1772 interface 
chip, which replaced the obsolescent 1770. 
Error-checking is slightly refined, and an 
extra 6K of small files can be stored. 
Earlier software would not save small files 
once 714K was full, because of a bug in 
the track zero handling. 

QFLP 1.16 avoids confusion if you swap 
disks with files open, or add toolkit com- 
mands with a program loaded. 1.17 is the 
same, apart from the added ramdisk, and 
1.18 is more tolerant of dodgy drives. 
V1.18 to 1.21 are identical, apart from the 
supplier. | hear that 1.22 to 1.27 have 
small changes to suit Minerva. 

Miracle Systems now supply V1.28 with 
their redesigned Trump Card; this can 
control up to four floppies. It also incorpo- 
rates code to contro! WIN1, Miracle’s hard 
disk drive, which used to load control 
software from a floppy. 


CHECKDISK 
PC users have a command CHKDISK 
which searches a disk for faults. Listing 1 


is CHECKDISK_BAS for the QL. The pro- 
gram attempts to read every sector, and 
reports unreadable tracks and sides by 
number. 

If CHECKDISK reveals a problem, copy 
the files onto a fresh disk and start again. 
Some files may be unreadable because of 
bad tracks or sectors, but you should be 
able to retrieve most. Special recovery 
programs may be neededif directory track 
zero is damaged. 

FORMAT tests the whole disk surface, 
and locks out parts that do not hold the 
format pattern. Data can be corrupted 
later, by software errors, mechanical wear, 
magnetic or electric fields, running over 
the disk with your chair, or turning drives 
on and off with disks inside. 

CHECKDISK can re-assure you that 
your data is still readable, or help to nip 
problems in the bud — before your backup 
copy suffers the same fate! It's a good 
idea to run CHECKDISK before making 
important backups, or after any event that 
seems hazardous, in retrospect. 

QFLP does not re-read, or ‘verify’, the 
sectors it writes; that would make it slow. 
The only way to be sure a file has been 
saved correctly is to re-load it. The MCS 
interface has VER_ON and VER_OFF 
keywords to control write verification. 

CHECKDISK uses WHEN ERROR to 
trap and report disk errors without stop- 
ping the program; so | regret that it does 
not work on “AH” and “JM” roms. WHEN 
ERROR can easily crash Qdos if you 
forget to turn it off and make changes or 
load another program. 

Another bug means the interpreter may 
lose its place in the program and lock up 
if a trapped error occurs in an expression. 
CHECKDISK avoids error-prone expres- 
sions, soit should not crash your machine. 

The program listed checks 80 tracks 
and both sides of the disk. Adjust lines 250 
and 280 if you are not using a 1440 sector 
format. For a 40 track single sided drive, 
substitute: 


250 FOR true_track=0 to 39 


280 FOR side=0 


A bug in the current Thor rom, Argos 
6.4.1, means that GET will not read sec- 
tors into strings that have been 
dimensioned, so this example uses FILL$ 
to pack a string to the required size. 
FORMAT records sectors on the disk in 
ascending order, numbered from 1 to 9, 
but CHECKDISK reads sectors in scram- 
bled order to speed up access. As it takes 
time for SuperBasic to process each sec- 
tor once it has been read from the disk, the 


DEFine PROCedure FFORMAT 
REMark VERSION 3.5 30/8/90 (C) 1989,90 Simon N Goodwin 
LOCal i,map2, map3,s1%, m1$, m2%, k$(2) 

CLS #0 
INPUT #0, “Put an EMPTY formatted disk in FLP1 & press ENTER: ";ks 


REMark Read directory 
OPEN #3, "flpl_*d2d" 
GET #3\1,518 


faster at LBYTES, EXEC, SBYTES, 
SEXEC, Psion document SAVE, and even 
PRINTing long lines from SuperBasic. 
The speed on task file-handling and COPY 
depends on the buffer size and number of 
contending tasks. 

At best, the time to save 500K on Thor 
XVI floppy falls from 1 minute 25 to 45 
seconds. A PRINT loop in QL SuperBasic 
accelerated from 5.3K per second to 8.3 
ona 720K disk, or 4.8 to 6.3K per second 


REMark Extract position of logical sectors 2 & 3 


map2=CODE{s18{42)}+1 
map3=CODE(s1$(43))+1 
GET #3\map2,m1¢ : 


s1$(39)=CHRS(0) 


FOR i=41 TO 49 : 
FOR i=50 TO 58 : 


FOR i=58 TO 76 : 
REMark Write new data 
PUT #3\1,5818 : 
CLOSE #3 

CLS #0 

PRINT #0; "Fast format ready." 
END DEFine FFORMAT 

software must wait for a complete lap of 
the disk before the next numbered sector 
comes round again. 

At best, a SuperBasic loop loading sec- 
tors in order from 1 to 9 can only read 2.5K 
per second, or one sector every 200ms. It 
may be slower still, after taking account of 
extra delays stepping between tracks and 
sides. 

CHECKDISK aims to read the whole 
disk and report bad tracks as quickly as 
possible, so it checks sectors in scram- 
bledsequence, reading every fourth sector 
till all nine sectors have been read. 

The interleaved sequence used was 
found by trial and error, and gives quick 
access on standard QL disks. It can check 
720K in two and a quarter minutes, while 
sequential reading would take six and a 
half minutes. 

FAST FORMAT disks work as normal 
on QL and Thor, but the speed of pro- 
grams and operations are different 
because the interleaving of sectors is 
changed. The QL is quite flexible; | have 
used various interleaves on my last four 
work disks for months without problems, 
using QFLP 1.16 and 6.4.1. 

luse FAST disks for tasks, screens, and 
other files that | wish to load in one step, 
but stick with the standard format for Quil/ 
documents, as they load faster that way 
and | like to refer to past articles as | write. 
If you find yourself pushed for time, | 
recommend you use a ‘quick format’ disk 
for incremental saving as you go along, 
and standard format for finished work. In 
the former case you SAVE more than you 
LOAD, and vice versa. 

FAST FORMAT disks are often slower 
than the originals on interpreted file IN- 
PUT and Psion LOAD — but in my 
experience they can be 30 to 100 per cent 


PUT #3\2,m1% : 


GET#3\map3, m2$ 
REMark Set offset used when stepping between tracks 
: $1$(40)=CHR$(1) 

REMark Set up LOGICAL -> PHYSICAL translation 
818(i1)=CHRS(i-41} 
81${i)=CHR&{ 78+i) 
REMark Set up PHYSICAL -> LOGICAL translation 
81$(i)=CHRS({i-59) : 


PUT #3\3, m2 


: REMark 0-8 
: REMark 128-136 


REMark 0-17 


on a single-sided disk. Screens load at 
over 16K per second, compared with 
12.5K per second normally. The Thor XVI 
reaches 18.8K per second, saving about 
three seconds when EXECing Xchange 
from floppy. 

If you read a file more than once the QL 
will often get the data from ‘slave blocks’ 
in spare memory, rather than the drive, so 
swap disks regularly if you want meaning- 
ful timings. It's a small advantage, but it's 
free, and only takes a couple of seconds 
to convert a freshly formatted disk. 

Conversion of slow to fast format is 
possible, but you need to read each track 
into memory, re-order the sectors, and 
write them all back. It is quicker and safer 
to copy everything from one disk to an- 
other. 

Sometimes the computer knows from 
the start which sectors to save or load, 
and the memory area to be used — EXEC 
and LBYTES work like that, and Devpac, 
Spyand Chas Dillon's Editorload files this 
way; so do most Page Designers. 

In this case QDOS uses a ‘scatter load’ 
system, introduced for the ZX Microdrives. 
Slave Blocks are not used. As sectors 
come from the drive they are slotted di- 
rectly into the receiving memory; loading 
continues until all the slots are full. You 
can see this clearly if you save a screen 
on cartridge with 


SBYTES MDV1_SCREEN, 131072, 
32768 


then clear the display with MODE 4, and 
re-load with 


LBYTES MDV1_SCREEN, 131072 


Try the same thing with an empty disk, 


and notice the ‘shutter’ effect as individual 
sectors load. The sequence used by 
SBYTES does not match LBYTES on a 
normal interleave, so loading is uneven in 
speed and scrambled in sequence. 

Now take a freshly formatted disk in 
FLP1, and type FFORMAT with 
FAST_FORMAT_BAS loaded. Save and 
re-load the display on the modified disk. 
The image should reappear smoothly and 
consecutively down the screen, at notice- 
ably higher speed. If it pauses or hiccups 
part-way down, you need to set a new 
stepping offset. 

The first 64 bytes of any Qdos disk 
contain details of the format and inter- 
leave. The first four bytes of sector 1, track 
0, side 0 must contain the characters 
‘QL5A', to identify the QL format. Then 
come ten bytes for the disk name, anda 
host of other details. 

The QL lets you configure the order in 
which sectors are used into any disk. 
FAST_FORMAT adjusts three entries — 
the stepping offset and the logical to 
physical and physical to logical transla- 
tion tables. The logical to physical table 
contains 18 entries — one for every sector 
on each side of a track. 

The values determine the order in which 
the software uses physical sectors. Nor- 
mally QDOS puts every third sector in the 
same group, so a single track contains 
three groups, comprising sectors (1, 4, 7) 
then (2, 5, 8) and (3, 6, 9). 

Groups on each side of the disk are 
used alternately, ifit’s a double-sided disk. 
The first three groups on track zero use 
sectors 1, 4 and 7 onside 0, followed by 1, 
4 and 7 on the other side of the disk, then 
2,5 and 8 on side 0, and so on. 

This suits many sequential files, like 
Psion data files, and Basic programs that 
INPUT and PRINT to disk. The gap of two 
sectors gives the program about 40 ms to 
process the next 512 bytes of data, before 
the next sector comes round. Ifit takes as 
much as 50 ms, the sector header will be 
missed and you'll have to wait an extra 
190 ms for the next lap of the disk. 

In fact the order in which Qdos uses 
sectors is configurable for every disk, al- 
though few people use anything but the 
standard 1:3 interleave. 
FAST_FORMAT_BAS alters the inter- 
leave on a QDOS disk to 1:1. You could 
just as easily change it to 1:2, or 1:4, 
depending on the speed of your program 
— or keep different formats for different 
applications. All QFLP and Thor roms are 
compatible with this feature now, but this 
is the first time it has been explained. 

Normally the table indicates sectors 1, } 
4, 7 and so on, as explained earlier. Just 
to add spice it numbers sectors from zero 
and adds 128 for the other side, so a 
typical table starts 0,3, 6, 128, 131 andso 
on. 
FAST_FORMAT re-programs the table 
to use sectors in strict ascending order 
from 1 to 9 onside 0, then side 1 similarly. 

The Physical to Logical table is the 
same thing in reverse — 18 bytes indexed 
by SECTOR+SIDE’9 to give logical sec- 
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tor numbers between 0 and 17. 

The stepping offset compensates for 
the extra delay associated with stepping 
from one track to another, so QFLP uses 
sectors in staggered sequence from one 
track to the next. The idea is that the next 
sector should be ready under the head as 
soon as the disk has stepped from the last 
sector of the previous track. If the offset is 
3, sectors 4, 7 and 1 will form the first block 
on track 1. 

| use a stagger factor of one sector on 
fast QL disks, and zero on Thor ones, as 
this gives the best speed for LBYTES and 
SBYTES. You may find two or three is 
better, if you have a slow drive — as a 
rough guide, these usually rattle when 
others squeak. 

There is no ‘correct’ value, any more 
than there is a ‘correct’ interleave. The 
ideal stepping offset depends as much on 
your hardware as your software. If your 
drive steps slowly, replace CHR$(1) in 
line 230 with CHR$(2) or even CHR§(3). 
Fast systems may allow CHR§$(0). 

FAST _COMPARE_BAS only uses one 
toolkit command — the ubiquitous and 
arcane WSTAT, which gives ‘Wildcard 
STATistics’ about files on a drive. The 
program quickly compares the files on two 
drives, by scanning their directory statis- 
tics. This means it can miss very small 
changes, like a few characters altered or 
transposed, but it picks up most signifi- 
cant errors. 

Like most users with hard-earned data 
on disk | keep multiple copies and aim to 
save each file to two or three disks after 
any major change. Problems usually be- 
come obvious when | notice that the 
number of free sectors, shown by DIR or 
STAT, differs between media when | ex- 
pect them all to hold the same thing. 

Normally this means | have failed to 
save afile on one of the disks, or forgotten 
to save an update, so that one file has 
been extended but the other has not, 
causing the discrepancy in drive statis- 
tics. Sometimes whole groups of files are 
missing or outdated. Mismatches may 
stem from known rom bugs — for instance 
both SAVE and COPY sometimes fail to 
report errors, leaving incomplete files. 

At such times | need a quick way to 
determine what's gone wrong. There may 
be 400 or more small files on one floppy 
disk, and scores or hundreds on a car- 
tridge. 

A full DIY Toolkit disk contains over 150 
files, ranging in size from a few bytes to 
26K. As the kit grew | needed an efficient 
way to keep my copies up to date and 
avoid losing tweaks and improvements 
dreamt up at the end of a hard day’s 
thinking — when it is easy to forget to 
update one of the backup disks. 

| could write a loop to read each sector 
from each disk, and compare them, but it 
takes ages toread andcompare 1,474,560 
bytes on two drives, and shows up lots of 
irrelevant differences which might be 
caused by deleted files on one drive, 
mismatched file name (so DIY19_ DOC 
does not match Diy19_ DOC) or differ- 
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ences in the order of files in the directory. 
What's more, the drives are unavailable 
to other tasks while open for direct sector 
access. 

| wanted a method of comparing disks 
that works ina few seconds, ignores trivial 
differences, and tells me the disk, file 
name and expected size for all missing 
files — and the drive and size of each 
version, when files with equivalent names 
differ in size. | wanted it to work on any QL, 
with any drives. 

FAST_COMPARE_BAS fits the bill, as 
long as your system has three drives and 
the WSTAT command, or an equivalent 
which reports file-names and sizes on 
alternate lines. You can get by with two 
drives if you adapt the program to use 
pipes and QLINK from DIY Toolkit’s Vol- 
ume P. Direct the report and temporary 
files to pipes, or MEM, instead of the 
TEMP$ drive. 

The program starts by reading the direc- 
tory statistics from drive 1 into a temporary 
file. It copies the file names and sizes into 
arrays FNAM$ and FSIZE: the code uses 
INPUT toread each name, soitis confused 
ifyou use names with line-feed characters 
inside! If you plan to use the program on 
files which are open, beware of ‘in use’ 
reports, or foreign equivalents. 

The second lump of code reads through 
the statistics for drive 2, and tries to match 
each file against an entry in the arrays. If 


LET di#=’flpi_’ 
LET max®=480 : tabi=16 
GET_STAT dais 
countix=0 : 
REPeat readi 
IF EOF( #3) 
countiX*®=count1i8+1 
IF count1i%>max% 


PRINT #0;" meximum 
END IF 


END REPeat readi 
CLOSE #3 


GET_STAT a2 : 


REPeat read2 
IF EOF( #3) 
INPUT #3, files, size 
count2%=count2%+1 


END REPeat read2 
FOR i=1 TO count1% 
IF fseise(ir>=o0 


files=fnamS( i): size=fsize(ir: EXCESS dis 


END IF 
END FOR i 


PRINT #4;\count1%;" files found on “; 
PRINT #4; count2%;i"“ files found on 

: DELETE temps & *’ temp’ 

PRINT #0;"“See the file" !temps; "COMPARISON" 


CLOSE #3 


BEEP 3000,0 : STOP 


DEFine PROCedure EXCESS(drives) 
TO tabi;files; 
PRINT #4;TO tab2idriveS!size!’* bytes’ 


PRINT #4; “Excess file” 
END DEFine EXCESS 


LOCal i 
FOR i=1 TO count1% 
IF fnam#(i)==ne 
IF fsize(ii<>s 


END IF 
fsizet(iry=—-i 


o 
END DEFine ONd1 


WSTAT #3, drives 
END DEFine GET_STAT 


EXIT readi 
PRINT #0; "Too many files on 
“SF meaxc% : 
INPUT #3, fnams( count1iX*), fsizse( count1%) 
DELETE temp? & 


count2%=0 
OPEN_NEW #4,tempS & * Comparison’ 


EXIT read2 


IF NOT ONd1(fileS.sizce) THEN EXCESS d2s 


DEF ine FuNction ONd1(n®, 8) 


PRINT #4; "Mismatched size" TO tabling: 
PRINT #4;TO tab2;d1@!fsige(id!!!d2e!s 


REMark Ignore this later 
REMeark Names match 


DEFine PROCedure GET_STAT(drive#} 
OPEN_NEW #3, temps & * temp’ 


OPEN_IN #3,temp3 & *temp’ 


the name matches, but the size does not, 
the code reports: 


Mismatched size <NAME> <DRIVE1> 


<SIZE1> <DRIVE2> <SIZE2> 


Files that appear on one drive but not the 
other prompt: 


Excess file <NAME> <DRIVE> <SIZE> 
bytes 


Add wild-cards or sub-directory names to 
the device names in line 150 if you want to 
restrict the names of files checked. The 
result is a report on device TEMP$, in the 
file “COMPARISON” — you may wish to 
change the name. 

The programs and text of this article are 
available on 3.5o0r 5.25 inch disk, together: 
with further details of QL disks. The price 
is £7 Sterling, calculated at three quid for 
the data and four for the service; everyone | 
except the Post Office benefits if you 
order other volumes, from past columns, 
at the same time. For a full list, send an 
SAE to DIY Toolkit, Cwm Gwen Hall, 
Pencader, Dyfed, Cymru SA39 9HA. 

Suggestions are welcome as ever at the 
QL World address, but please allow a 
while for them to be forwarded; like other 
contributors, | do not work in the office. 


100 REMark @L/Thor FAST COMPARE 

110 REMark Copyright 18990 Simon N Goodwin 

120 REMark Version 1.1 30/6/90 
REMark Extensions needed 
: @a2s=’flp2_’ 


: WSTAT 


temps=" rami_’” 
tab2=53 


DIM fnam$( max%, 36), feize(max®) 
REMark Number of files in device 1 


“;als; 
CLOSE #3: STOP 


ee “ 


REMark Rewind? 


Bryan Davies 
considers disks and 
spell checkers 


.G.H. Services report that the 4th 

issue of QL Technical Reviewwas 

being run off in mid-July and I'll 

report on it when a copy is re- 
ceived. 

The short article on Page 40 in Septem- 
ber QL World produced a very speedy 
response from John Roberts, who offers 
an alternative way of adding fields to Ar- 
chive databases, but only for users having 
a copy of The Editor. 

He suggests Exporting the database 
concerned, then reading it into The Editor 
and using the commands given below. 

Sample database, as it appears when 
read into The Editor: 


“firstfield","secondfield$" “thirdfield$” 
0, “Seconds”, Thirds” 

1, “Secondday”,“Thirdday” 
2, “Seconds”,"Thirds” 

3, “SecondMon,“ThirdTue” 
4, “Seconds”, “Thirds” 

5, “Seconds”, “Thirds” 

6, “Seconds” “Thirds” 

7, “Seconds” “Thirds” 

8, “Seconds”, “Thirds” 

9, “Seconds” “Thirds” 


Commands (the > sign indicates ex- 
changes to be made at the ends of the 
lines and the lines in brackets are ex- 
planatory, not part of the command): 


t ec>>,fourthfield”> 

(add another, numeric field) 

rp n ec>>,4> 

(add ‘4' to new field, in each record) 
t ec>>, “fifthfield$”> 

(add another, alphanumeric field) 

rp nec >>, “nothing in particular’> 
(additional quotation marks for text) 


The final step is not clear from John’s 
letter, and | have not had time to check it; 
you have to “take out everything on the 
last line except ? and write the amended 
file", the ? indicating something missing 
from the letter. Write out the new file with 
a_ LIS extension from The Editor, then 
Import it back into Archive. 

The commentin the “Response to Read- 
ers’ Letters” section about a program 
ordered from PDQL concerns HardBack , 
written by Chas Dillon for hard disk users. 
After waiting for well over a month for a 
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copy, one arrived from PDQL the day after 
an associate complained about its non- 
arrival (it is his hard disk | am trying to set 
up). As the program implies, it deals with 
backing-up files from hard disk, and! hope 
to report on it at a later date. | had hoped 
the program would also provide more- 
general utility functions, to make the hard 
disk easier to use, but that is not the case. 
However, the instructions are helpful to 
anyone trying to understand the workings 
of the software provided with the Miracle 
hard disk. 

If you are looking for odd items of hard- 
ware, try Adman Services, which has a 
large variety of QL (and other) oddments. 
For example, they have MP disk inter- 
faces, with a choice of rom chips, and dual 
disk drives plus the MP interface, with box 
and power supply, for about £150. They 
can also provide an eprom board, to allow 
Qdos and other routines to be accessible. 
The phone number is 0952 255895 


Readers’ Letters 


Differences between printers account 
for a large proportion of the problems 
users have. What works wellon one printer 
may initially seem useless on another. A 
couple of recent examples concern the 
program TechniQL and the optical scan- 
ner reviewed by Mike Lloyd a few issues 
ago. The saga of J. Roy Goodall’s diffi- 
culty printing from TechniQL continues, 
and it hard to see a way of bringing it toa 
happy conclusion, because he is so far 
away (Belize) from the supplier, T.K. 
Computerware. 

In view of the fact that the program has 
been around for almost as long as the QL, 
it can reasonably be assumed that print- 
out can normally be obtained from it, but 
Roy cannot get printout to either an Epson 
LX-800 or a Tandy DMP-130A. T.K. sup- 
plied another program copy, and the result 
was apparently the same, making it seem 
unlikely the fault lies with the program 
copy itself. The serial-parallel interface 
used with the printers has been replaced; 
hopefully, that eliminates it as a potential 
source of the problem. 

Printout from Ease! and Eye-Q on the 
LX-800 “presented no problems”. The LX 
is not (so far as | am aware) a fully “Epson- 
compatible” printer, despite being 
manufactured by Epson. | have attempted 
to use an LX printer-driver with an Epson- 
compatible printer and got decidedly erratic 
results. Does anyone know of differences 
between Easel/Eye-Q and TechniQL, in 
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the way they treat printers as being Epson- 
compatible? One other thought that comes 
to mind at present is the likelihood that 
Roy's QL has a JSU rom (the type fitted to 
QLs sold in the USA); it is known that 
screen graphics can look quite different 
with the JSU, compared to the JS UK rom, 
and it may be that the output to the printer 
is similarly different. In addition, itis thought 
that some US-specifications differ from 
UK-spec ones. Perhaps US readers have 
some thoughts on printing from TechniQL? 

The scanner is a printer-dependent de- 
vice in so far as the software has to drive 
the print head. To be able to do this, the 
software has to be supplied with various 
movement codes specific to the printer 
being used. In the case of E. May, the 
printer is a Seikosha GP-100A Mark Il, 
and he has not succeeded in getting the 
print head to scan his documents. The 
head moves alittle, then stops. The printer 
details have been sent to the manufactur- 
ers of the scanner, and comment from 
them is awaited. In general, the scanner 
does a good job; Mike Lloyd was im- 
pressed with the one he reviewed, and | 
am informed that it can do a good job of 
displaying a £5 note in colour! 


Keyboard Products have refunded 
Richard Alexander’s money, havingbeen 
unable to supply the ordered keyboard in 
time (but he says he may re-order). As 
reported last month, they stated they have 
completed the redesign which caused de- 
lay, and should be delivering PS/2 
keyboards in areasonable time now. As of 
late August, there has been no further 
comment from Michael Jackson regard- 
ing his order for this keyboard, but there 
have been no other complaints. 

R.W.S. Dand says he contacted his 
credit card company about the double 
charge for goods supplied by PDQL and 
the second debit has been refunded, but 
the credit card company said they had not 
been repaid by PDQL. J.S. Hay now has 
a working Rename routine, supplied to 
him by Brian Hedge. Comparison of their 
typed-in lines revealed an error in one 
data value. There was more to it than this, 
however, as Hedge had written a 3-line 
routine to get around the problem many 
earlier QLs had with the CALL command 
not working properly, and this was neces- 
sary to enable the Rename routine to run 
on Hay’s QL. E.E. Stocker has received a 
refund and disk from Sector Software, 
following a mix-up about orders he placed 
withthem. J. Roberts has contacted Psion 
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about corruption on his Psion Chess car- 
tridge, and they have offered to help. 
Although Psion do not now bother with the 
QL market, they have been helpful in 
dealing with queries on various occasions, 
and they don't seem to have “washed their 
hands” of the QL. 

A problem of a different nature, to which 
| know no answer, was put by C.G.H. 
Services. In response to my repeated 
advice to pay for goods by credit card, they 
state that small businesses are not con- 
sidered suitable to be given a credit card 
“franchise”, so that | am effectively advis- 
ing readers not to buy from small 
businesses. My understanding is that card 
companies do not refuse facilities to small 
businesses but, understandably, they may 
refuse in cases where they feel a business 
is not sufficiently long-established or can- 
not provide suitable references. | did not 
mean that buyers should make use of a 
credit card a hard and fast rule (especially 
now card companies are starting to charge 
for the card, and its value has dropped 
correspondingly). If you spend, say, £5 to 
£20 as you might with several small sup- 
pliers most buyers can afford to take the 
chance of losing that amount, and pay by 
cheque or postal order, etc. Itis when you 
order expensive goods that the use of a 
credit card becomes highly desirable. It is 
for the individual to decide at what level 
loss of the money would be painful. Credit 
card companies may set a limit below 
which they do not give refunds, and that 
figure has typically been £100, although 
that does not seem to mean refunds of 
lower amounts will automatically be re- 
fused. 

It would certainly be untrue to imply that 
small companies are inherently less trust- 
worthy than large ones. In any event, all 
the suppliers we are familiar with on the 
QL scene are small, by normal business 
standards. Large adverts and familiar 
names are not guarantees that your order 
will be despatched but, if the new owners 
of QL World (the Maxwell group) ensure 
that advertisers pay promptly for their ad- 
verts, there will much less chance of 
adverts appearing in future from suppliers 
in the process of going out of business. 

The PC supplier which presented the 
most unbelievable face to me, resulting in 
my having to claim a refund from a credit 
card company, now provides a large ad- 
vertising spread in the PC magazine | read 
regularly, and similar adverts in several 
others. 

One has to “test the water” at some point, 
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by sending money and hoping for some- 
thing in return. Preferably, one should 
have favourable comments from other 
buyers to give confidence. Naturally, those 
of us who write for QL World come into 
contact with suppliers,and form our own 
opinions of those who seem trustworthy; 
inevitably, we deal more often with the 
bigger suppliers, because they have more 
hardware/software to be reviewed, and 
because more readers write in about them, 
since more readers buy from them. At this 
point in time, the main suppliers all seem 
both trustworthy and commercially sensi- 
ble. That is, they normally supply what is 
ordered, only cashing cheques when they 
feel certain the goods are available for 
despatch, and they keep their finances in 
sufficiently good order to be able to meet 
their commitments. Several suppliers have 
reported a downturn in orders over the 
past few months, and an increased level 
of “suspicion” on the part of buyers. That 
is, because of the way two suppliers 
treated their customers last year, and 
early this year, good suppliers are now 
suffering loss of business, and finding that 
buyers are tending more to want to collect 
goods personally rather than order them 
by mail. 

What can one say, in hindsight, about 
PDQL and SUB? As a supplier, PDQL did 
not always seem as "professional” as 
some others, but it never gave us the 
impression of being unsafe to deal with, 
not until about the time the letters of 
complaint started arriving atthe magazine. 
The situation is still quite unclear, as an 
associate of mine recently (late August) 
called PDQL to complain about ordered 
goods not being supplied, and was as- 
sured one particular program would be 
sent that day and it was duly received the 
next day. 

SUB didn’t seem “right” to me, from the 
start, but you can’t advise readers to steer 
clear of a supplier simply because your 
own intuition has doubts. The concept of 
an answer service for users with problems 
was laudable, but the chances of success 
with such an enterprise struck me as 
small. Eidersoft tried it earlier on, and 
came unstuck. Taking money on the 
promise of supplying help is a shaky 
premise, for the supplier as well as for the 
punter. As the supplier, if you subse- 
quently find that you don't have the time or 
the expertise to provide the answers the 
subscribers need, you soon end up hav- 
ing spent the money they sent you, and 
with a mass of complaints and calls to 


deal with. Once you let correspondence 
build up to a significant level, you won't get 
any work done. A supplier that gets even 
one letter to deal with for every 50 to 100 
orders despatched may find it hard to 
keep order processing efficient, and to 
make money and this is also a reason why 
it can be difficult to get replies to letters 
even from “good” suppliers. 

Insurance is a subject we all tend to fight 
shy of, sometimes to our cost. Recent 
correspondence concerning an expensive 
item returned to a supplier as defective, 
and received by the supplier in a damaged 
condition, highlights this aspect of mail 
order business. If the goods are expen- 
sive, insure them. Don’t expect the supplier 
to have insurance cover for goods that 
might be returned to them! Make sure the 
insurance js for the full value of the goods, 
not for some nominal amount which may | 
be far less. Itis also essential to advise the 
supplier of what you are doing, and to give 
the supplier first look at the goods which 
are thought to be defective. If you feel it is 
necessary to bring a third party into the 
matter, choose someone who is profes- 
sionally-qualified to give a full written report 
on the claimed defect, and who will submit 
a proper report that would be acceptable 
to a Court as “competent, independent 
professional opinion”. 

A supplier called to advise that we might 
get a complaint from a QL user who had 
ordered certain programs, changed his 
mind and cancelled the order on the basis 
of “expert opinion” on the programs con- 
cerned, and then changed his mind again 
and reinstated the original order. The sup- 
plier might not now be keen on dealing 
with the order at all, as the amount of time 
spent so far, and the distinct possibility of 
further queries, suggests the sale would 
hardly be a profitable one. A few words on 
the need this particular user apparently 
has might answer questions for others. 
The stated requirement was to be able to 
transfer text files between QL and PC, in 
both directions, maintaining typestyle en- 
hancements (eg italics, bold). The program 
to be used on the QL was text®’, and 
WordStar and/or WordPerfect seemed to 
be the other WP program to be used on 
the PC. 

The first point is that direct transfer of 
files, without any attendant “translation 
routine” being used, would enable text to 
be transferred with little difficulty, but en- 
hancements would be lost in the process. 
Whatever you put into the original file, the 
version of it received by the target pro- 


gram would be devoid of the correct 
codes that tell the printer when to change 
size, print in bold, use an italic character 
set, etc. Ifthe user accepts this limitation, 
and is prepared to reinsert printer codes 
using the target program, the transfer 
process is quite easily accomplished us- 
ing XOver, MS-QLink, or similar 
programs. 

The transfer process does not actually 
remove all non-text codes; if you want 
files transferred from the QL to be as 
“clean” as possible when they are passed 
to a PC, the obvious program to use is 
The Editor. It Keeps its files in a simple 
Ascii-text format and doesn't insert lots 
of formatting codes for its own purposes. 
tex’ does use its own formatting codes; 
if youtransferastandard _T°*’ filetoaPC 
you get rather a mess, which might take 
you avery avery long time to knock into 
acceptable shape. You should use the 
Export-Ascii command in text®’ to make 
the file to be transferred as clean as 
possible before using XOver or MS- 
QLink — to transfer it. Using the Export 
command does not, however, get over 
all problems associated with print codes. 
As an example, the dash (hyphen) 
character used in text®’ is different from 
that used in WordPerfect 5.0; although 
the dashes remain in the transferred file, 
you can't use the Search command in 
WordPerfect to find them, because it 
simply does not recognise the code used 


by text®’ (this is an oddity of WordPerfect, 
not a fault in text®’). 

When WordStar files are transferred 
from PC to QL, the last character of each 
word gets altered. 

You can deal with some of these prob- 
lems by writing a macro instruction or 
command file to make necessary con- 
versions once file transfer has been 
completed, but this is clearly only practi- 
cable when the target program is capable 
of recognizing the codes which need 
changing. For example, when a 
WordPerfect file is saved in Ascii form 
and transferred to the Editor, the only 
tidying-up work needed may be to 
remove end-of-line codes (displayed 
as “splodges” by The Editor), and 
The Editor is well-suited to doing this 
job with the minimum of activity on 
the user's part. Most WP programs 
(including text®’) are not designed to 
do the manipulations that The Editor 
is capable of and they don't recog- 
nise many of the codes that it can 
use. 

Where print codes in a text file are 
explicit — that is, you can see the 
codes on the screen display — and 
you can choose your own codes, you 
are ina position to select codes which 
the target program will recognise. 
Again, The Editor is the obvious pro- 
gram, because any typestyle 
enhancements you insert into Editor 


files have to be identified by on-screen 
codes, which you can select to suit 
your purpose. Quill uses embedded 
codes for some typestyles (under- 
line, Superscript, subscript and bold), 
so you will have trouble with these, 
but you can use the Translate entries 
{when creating the printer-driver) for 
other typestyles and choose codes to 
suit. 

Text®’ is the best QL WP program, 
from the point of view of handling 
many typestyles, but the codes are 
all embedded. My experience im- 
porting text®’ files into WordPerfect is 
that — whichever method is used — 
tabs and typestyle codes are lost and, 
with one method of importing, “real 
characters” (such as the degree sign 
°) may also be lost; the end result is 
satisfactory for my purposes, but 
there can be a fair amount of time 
involved in putting enhancements 
back in. Much the same applies with 
Quill. 

Complicated as it may sound, there 
is merit in using The Editor as the 
transfer agent, but using text®’ as your 
normal document-preparation pro- 
gram. Make the transfers (both ways) 
via The Editor, to keep the files clean 
and enable conversions to be made, 
but use text®’ to prepare text for 
printing. You can easily Import files 
from The Editor into text®’. 


DATA SYSTEMS 


A FAST AND EASY TO USE PCB DESIGN SYSTEM 
FOR THE QL AND THOR 


DESIGN FEATURES INCLUDE: 


. A32 by 32 inch drawing area. 
. Resolution down to .001 of an inch. 


. Up ta 16 separate layers with variable colour senate 


4. 16 predefined Pad shapes and sizes. 
. 64 Track widths from .005 to .32 of an inch. 


. The number of components on a layout is limited by memory only. 
. Auto repeat on all elements ~ ideal for memory planes. 


. Can be used for surface mounted devices. 
9. Auto via system for multilayer boards. 
10. Over 32000 user definable library components. 


11. Can output plot files to any valid OQL/THOR device. 


12. Produces Dot matrix, HP-GL or laser files. 


fadlepndent QL/Thor Users Group 


Worldwide Membership is by subscription 


only, and offers the following benefits: 


Monthly Newsletter — up to 40 pages 


Massive Software Library — mostly FREE! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 


Advice on Software & Hardware problems 
Discounts from most major suppliers 
Subscription just £14 for UK members 

Overseas subscription £17 


Barclaycard: Visa: Access: Mastercard 


13. Supports Trump card and ABC Electronik keyboard interface. 


Minimum system 
requirements: 


Only PRICE 
f g OF ciuoes 
ade wrap 


* Now in our SEVENTH successful year * 


Further details from the Membership Secretary 


David Johnson 


The Corner House 
Loxley, Warwick 
CV35 9JT 
Tel (0789) 842543 


Please make cheques payable to Lear Data Systems and send to: 
6 SOUTH VIEW GREEN, BENTLEY, 
IPSWICH, SUFFOLK IP9 2DR. 

TELEPHONE: (0473) 310804 
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he SuperBasic series has tackled 
many subjects over the years but 
it has up to now avoided the 
specialist subject of games. This 
has largely come about by accident, but 
this serious omission is about to be put 
right with a short series of articles devoted 
to games written entirely in SuperBasic. 
There are four major categories of com- 
puter games: the category most people 
immediately think of when considering 
computer games is the arcade variety. 
Arcade games can be further broken down 
into sub-specialities such as “shoot-em- 
up” involving the traditional alien hordes, 
“duck-and-weave” such as Pacman, and 
“search-the-castle” hybrids which mix ar- 
cade style gameplay with elements more 
commonly found in text-based adventures. 
The main features of such Games are 
speed, noise, fancy graphics and a sense 
of power and danger. 


Basic games 


In the early days of the home computer 
revolution arcade games were commer- 
cially marketed in simple Basic, but 
nowadays all professionally-produced ar- 
cade games are written in high-speed 
machine code to provide as much visual 
impact and realistic action as the cpu will 
allow. The Basic language is normally 
thought of as being too slow and too 
limited for fast games. This is largely true 
even if the Basic program is compiled, but 
there has nevertheless been a steady 
stream of playable arcade-style games 
written completely or mainly in Basic and 
published in magazines like Sinclair QL 
World. Just glance at the Microdrive Ex- 
change for examples. 

Most Basic arcade games are based on 
or related to the early efforts of the compu- 
ter game pioneers because those early 
games were carefully designed to make 
the most of the powers of contemporary 
computers without exposing too many of 
their weaknesses. 

The earliest games played on comput- 
ers were entirely text-based and they form 
a category of their own: adventures. Ad- 
venture games tend to be of the “dungeons 
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and dragons” genre with a “quest” sce- 
nario, but successful adventures have 
been based upon murder mysteries, spy 
books and even the highway code. A 
typical format involves the description of a 
location and input covering movement, 
picking things up and avoiding dangers. 
Nowadays the techniques developed over 
the years for adventure games are finding 
their way into computer training pack- 
ages, with the computer responding 
appropriately to the trainee’s input. 

The satisfaction in both playing and writ- 
ing adventure games comes from the 
rational, logical representation of a realis- 
tic world in which every conceivable option 
has been catered for by the program. 
Recent adventure games rely on graphics 
to convey atmosphere and information, 
and some have replaced text input with 
on-screen menus or arcade-style re- 
sponses. Adventure games become very 
unsatisfying if a perfectly reasonable ac- 
tion is not permitted because the game 
designer did not think of it or if the game 
depends upon meaningless conditions 
being met —the door will not open unless 
you are holding a box of matches, for 
instance. 

A third category of computerised game 
comprises intellectual games such as 
chess, backgammon, Scrabble and even 
Monopoly. The essence of these games 
is to recreate on the computer screen 
games which are already familiar to us- 
ers. The computer can then become a 
highly capable opponent, using sophisti- 
cated “look-ahead” analytical techniques 
to replace human intellect. Some of these 
methods have been explained in the se- 
ries on a draughts program published in 
previous editions of QL World. 

The final category includes all simula- 
tors, be they flight simulators, car racing 
simulators or games which would not nor- 
mally be considered as simulations, such 
as computer golf and computer snooker. 
Quality wargames packages fit into this 
area of the games market, depending 
upon whether realism or combat ma- 
chismo is the aim. 

The satisfaction obtained from simula- 
tors tends to be in direct proportion to the 


Mike Lloyd battles with alien 
forces to develop a playable 
arcade game written entirely in 
SuperBasic. 


illusion of reality created by the program- 
mer. There is a good argument that 
simulations have become too complex 
and fail to acknowledge that facing acom- 
puter screen and keyboard provides much 
less information than would be available 
in real life. The weight of a golf stroke 
cannot properly be gauged, nor can an 
aircraft's height above the runway be 
judged, when the only information avail- 
able is a low-resolution graphic of a small 
dial. 

This weakness of simulations is being 
tackled on two fronts: improving the dis- 
plays and changing the way user 
responses are handled. The Japanese 
have been experimenting with special 
seats with screens all around them and an 
“active” suspension to reproduce cockpits 
for car, aircraft and spaceship simulators. 
One of the more promising options be- 
coming available is a set of jumping pads 
which plug into a computer and detect the 
user's foot movements. This turns athletic 
simulations into something much more 
credible. It cannot be long before even the 
humble exercise bicycle has a display 
screen so that users can race against 
computerised opponents. 

Each class of computer game holds its 
own peculiar challenges, and those of the 
arcade games demand programming 
techniques of far greater complexity than 
those normally expounded in this series. 
Nevertheless, the first game to be tackled 
in the Super basic series is very much of 
the traditional arcade variety, albeit with 
some interestingly original ideas included 
within it. Before getting down to detail in 
the next article it is worthwhile to consider 
some of the general problems which pro- 
grammers of arcade games have to 
overcome. 


Top speed 


Speed is by far and away the most 
important consideration when planning 
an arcade game in Basic. There is a 
constant conflict between adding special 
effects and keeping the program short 
and simple enough to ensure that it is fast 
enough. The fractions of a second differ- 
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ence between the speed of an IF com- 
mand, and its SELECT ON equivalents 
might not seem very important, but if a 
comparison is made within a loop at the 
heart of the program executed many times 
a second then it might well make the 
difference between a playable game and 
a non-event. 

Almost everything in a game program’s 
design is subordinate to speed, including 
conventional programming style. Forget 
long variable names, neat IF..THEN 
statements, clear algorithms and the divi- 
sion of a program into coherent 
procedures. For a Basic arcade game to 
work the code must be pared down to its 
most efficient, and every trick in the book 
to achieve this aim is valid, no matter how 
unacceptable it would be in a standard 
business program. 

At the heart of a typical game is aloop in 
which the screen is updated and user 
input is detected and acted upon. This 
loop, the main game loop, is where speed 
counts the most. The main game loop 
usually breaks down into a body of state- 
ments which are executed every time the 


Game loop 


loopis cycled and anumber of statements 
which are only executed if a condition is 
met (for instance if the user presses the 
“fire” button, or an alien hits the bottom of 
the screen). 

The efficiency of the main game loop is 
compromised by every GOSUB, GOTO, 
procedure call or user-defined function. 
Jumps out of the main game loop, by a 
GOSUB for example, should be ruthlessly 
excluded from the fixed part of the loop 
and only tolerated when speed is not vital 
in conditional parts of the loop. There is 
therefore not much call for sophisticated 
structures such as user-defined proce- 
dures in an arcade game program except 
for ancillary features such as displaying a 
high-score table or animating the dying 
moments of the user’s battlestar at the 
end of a session. 

To keep a Basic game moving at an 
acceptable pace the number of objects 
having the appearance of moving simul- 
taneously must be reduced to an absolute 
minimum, which might mean only two or 
three items. The Space Invaders formatis 
not really suitable for a Basic conversion 
because it involves far too many inde- 
pendent aliens (and the products of their 
firepower) which must each be moved 
| during one cycle of the main game loop. 
The Pacman formatis much more accept- 
able, with only the one “munchy” controlled 
by the user and perhaps two or three 
“ghosties” haunting the maze. 

One way of giving the impression that 
there are a larger number of entities mov- 
ing on the screen is to create a string with 
anumber of items a few spaces apart. By 
printing the whole string, perhaps six things 
can be moved in the time it takes to move 
one, but of course their relative positions 
will be unchanged. 

Movement does not have to be pixel-by- 
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pixel in order to convince the player that 
something is actually moving when in fact 
itis being rubbed out at one location and 
re-drawn at another. Generally, move- 
ment in hops of one character position or 
one line is acceptable. The time between 
an object disappearing at one location 
and being replaced at another should be 
as short as possible and the time it then 
remains on the screen should be as long 
as possible before it is necessary to move 
it again. The main game loop should 
therefore be designed so that an item is 
drawn on the screen, its next location is 
calculated, and all the other actions which 
must take place are completed before itis 
overwritten pending its re-drawing some- 
where else. 

A potentially lengthy part of any game 
loop is the need to read keyboard input 
and respond to it. Generally, this means 
that the keyboard has to be read for input 
and, if detected, the input must be tested 
by a series of conditional statements to 
determine what action needs to be taken. 
Where conditions are mutually exclusive, 
for example where only a left cursor or 
rightcursor keypress could have occurred, 
the most likely condition should be tested 
for first and the other possible conditions 
should be coded in an ELSE alternative, 
such as: 


IF fire_button THEN ... 
ELSE IF left_move THEN ... 
ELSE IF right_move THEN ... 
ENDIF 
ENDIF 

ENDIF 


Do not forget, of course, that for some 
games the most common condition might 
be no keypress at all, in which case this 
will have to be tested for before any par- 
ticular keypress is considered. 


Tuning clauses 


Where simultaneous keypresses are 
permitted, which must be true for the 
majority of arcade games, a different ap- 
proach must be taken. Each possibility 
must be tested for in each cycle of the 
main game loop, leading inevitably to a 
series of IF...THEN clauses. Even here, 
however, it is possible to save time by 
paying attention to the phrasing of the 
clauses. For example: 


IF NOT X THEN... 


might well be slightly slower than its 
equivalent: 


IF X=0 THEN... 

Where ranges are considered the scope 
for tuning commands to obtain maximum 
efficiency grows considerably. Ranges 
might be inclusive, like: 

IF X>= 7 OR X <= 11 THEN... 


or they might be exclusive, like: 


IF X>6ORX< 12 THEN... 


There is usually merit in avoiding OR and 
writing IF statements to include AND in- 
stead — it is surprising how often this is 
possible. Ranges might also be broken 
down into two separate IF statements, 
such as: 


lf FX >6 THEN 
IF X < 12 THEN 


ENDIF 
ENDIF - 


With the QL, of course, it is also worth 
considering using the SELect construct 
instead of IF.. THEN. Tips as to the faster 
of the two conditional constructs have 
been published in a recent SuperBasic 
article. 


Knowing it 


In order to extract maximum execution 
speed from a program and to include as 
much screen action as possible it is es- 
sential that you know your programming 
language and the capabilities of your 
computer inside out. The QL has some 
unusual quirks which generally make it a 
less suitable platform for computer games. 
It has no means of detecting whether a 
character has been printed at a particular 
location on the screen, for example. How- 
ever, it has superb conditional structures 
which permit boolean logic (more of which 
next month) to quickly act upon keypresses 
detected with the very fast and capable 
KEYROW command. It also has an unu- 
sual option to the OVER command which 
gives an additional form of overprinting. 

Programmers also need to be aware 
that procedure and function calls are 
slower than GOSUBs, that jump to a dis- 
tant part of a program take longer than a 
jump to a nearby part of the program, that 
normal QLs actually perform integer arith- 
metic more slowly than floating point 
arithmetic, that vertical and horizontal lines 
are much more quickly drawn using the 
BLOCK command than by the LINE com- 
mand, and so on. 

Increasingly these days, knowledge of 
standard SuperBasic needs to be supple- 
mented with knowledge of whatever | 
toolkits, replacement Roms and compil- 
ers are pressed into service alongside it. 
For example, both the Minerva romandall 
the Basic compilers perform integer arith- 
metic much more quickly than floating 
point arithmetic. Another worthwhile ex- 
ample of useful knowledge is that the 
Lightning screen accelaration program 
works at its fastest if characters are an 
exact number of bytes wide (eg CSIZE 
0,1) and they are printed at a screen 
location whose horizontal offset from the 
edge of the screen is exactly divisible by 
four. 

In next month’s article the process of 
designing an arcade game will be illus- 
trated by a relatively fast and original 
arcade game programmed totally in 
SuperBasic. 
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he previous article on C prog- 

ramming was mainly concerned 

with the basic structure of a 

program. We also took a look at 
how to compile and run a program using 
the Digital C compiler. 

This month we’ll take a more detailed 
look at some C facilities. 

The main areas covered are: 

a) defining symbolic constants 

b) defining and using variables 

c) sequence control statements 

(while and for) 

d) conditional statements 
Two C program listings are included to 
illustrate these facilities. The program in 
fig. 1 performs a fairly simple task. It 
counts the number of characters that you 
type in. When you press the (ESC) key it 
tells you how many keys you pressed and 
then stops. |f you type in more than 32765 
it stops automatically without you having 
to press (ESC). The program displays 
each character as you type it— butitis not 
especially fancy. Many characters on the 
QL keyboard do not produce displayable 
characters — these will appear as blobs on 
your screen. Examples of such keys are 
the (TAB) key and the arrow keys that 
usually move the cursor around. Inside 
our C program the arrows and (TAB) 
simply get displayed as blobs! 

The first two lines of the listing in fig. 1 
define things known as symbolic con- 
stants. In our program these are named 
MAZ__INT and ESC. MAX__INT is given 
the value 32767 and ESC is given the 
value 27. When the program is compiled 
the C compiler (parser) replaces every 
occurrence of MAX_INT by 32767 and 
every occurrence of ESC with 27. The 
only exception to this rule is that if 
MAX__INT or ESC are enclosed within 
double quotation marks (eg “MAQX- 
_INT") they are left alone and not 
replaced). 

Symbolic constants are defined using 
the following syntax: 


#define SYMBOLIC__NAME value 


Itis conventional to use upper case letters 
in symbolic constant names. Underscore 
characters, alphabetic and numeric char- 
acters can also be used in SYMBOLIC 
—NAMES. 

The value assigned to the SYMBOLIC 
__NAME can be almost anything. Usually 
every #define appears at the start of the 
program before the main function. 

Using symbolic constants can some- 
times make programs easier to under- 
stand and easier to change. We are using 


MAX_INT to represent the maximum 
value that Digital C allows an integer 
variable to have (32676). ESC represents 
the Ascii character that is produced when 
you press the (ESC) key on a QL 
keyboard (Ascii code 27 decimal). 

All program variables must be declared 
before they are used. Usually they are 
declared at the beginning of the main 
function — just after the curly bracket. 
There are a few other places where you 
can declare variables, but for now stick to 
the beginning of main. 

Fig. 1 declares two variables. The first 
is named num_characters and is an 
integer. The second is named inp__char 
and is a character. 

The basic syntax used for declaring 
variables is: 


data_typ variable__name; 


You can declare many variables of the 
same data type using: 


datatype variable1, variable2, variable3; 


When variables are declared in C they 
are not normally given any initial default 
value. Unless you assign a value to a 
variable (see below for details) it will 
contain an unpredictable garbage value. 

Digital C supports two basic data_ty- 
pes — int and char. In future articles we'll 
take a look at arrays and pointers. Full 
implementations of C include floating 
point (decimal) numbers. Digital C does 
provide some facilities for handling float- 
ing point variables — again we'll consider 
them later. 

In Digital C an int can hold a value in the 
range —32768 through +32767. Some 
implementations of C can cope with larger 
values (sometimes they use a data__type 
known as long int to do this). 

Achar can holda single Ascii character. 
Ascii characters have codes in the range 
0 through 255. The QL Concepts manual 
that is provided with the QL gives details 


printf 
separated by commas); 


In the second 
article on his 
new C series, 
Andy Wright 
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facilities, 
including 
variables and 
control 
statements. 


of which code represents each of the 
characters. 


To assign a value to a variable use: 
variable__name = expression; 


An expression often consists of con- 
stants and/or variables_names linked 
together by arithmetic operators such as 
+, —,* and /. Some examples are: 


‘*Assuming x, y and z have been 
declared as type int */ 
x= 41" 


In fig. 1 both num__characters and 
inp__char are assigned an initial value of 
zero. One curious point about char vari- 
ables is how they are assigned values. 
The statement: 


inp—char = 0; 


stores the character whose Ascii code is 
zero (NULL) in inp__char. 
In a similar fashion: 


inp__char = 65; 


stores an upper case A in inp__char (Ascii 
code 65). For characters that can be 
typed in from a keyboard, however, you 
can use: 


inp__char = ‘A’; 


This stores the Ascii character A in 
inp_char. The C compiler can only 
manage this if you include the apos- 
trophes (single quotes) on either side of 
the cnaracter — if you don’t then it expects 
you to use a numeric value in the range 0 
through 255. 

The next few lines of fig. 1 print some 
messages. Last month we covered the 
basics of the printf function. In fact, printf 


(“words to print and print_formats”, expressions and variables 
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#define MAX_INT 32767 


#define ESC 27 


Programming 


/* Defines some symbolic constants */ 


main ( ) 


{ 
int 
char inp char; 


num_characters; 


/* Define an integer and a character variable */ 


num_characters = 0; 
/* We haven't read any characters yet */ 


printf("This program counts the number of keys that you press\n"); 


printf(" 


MAX_INT - 1 ); 


inp_char = 0; 


until you press ESC or type %d characters\n\n", 


- 


/* Makes sure that inp char isn’t already ESC by coincidence */ 


while ( inp_char |= ESC && num_characters < (MAX_INT - 1) ) 
/* Loop round until all characters have been entered */ 


{ 


inp_char = getchar(); 
/* Get a character from stdin */ 
if ( inp_char |= Esc ) 


{ 


num_characters = num_characters + 1; 


/* Only increment num_characters if inp char |= ESC */ 
putchar(inp char); 


/* Write the character to stdout */ 


} 
} 


printf("\n\nThe number of characters entered was: %d\n\n", 
num_characters) ; 

/* Write the results to stdout */ 

printf("Press a key to quit"); 

inp_char = getchar(); 

/* Wait for key before terminating */ 


allows you to print a character string and/ 
or the values of program variables. The 
basic format is on the previous page. 
The double quotes must be included. The 
words to print can include almost anything 
~ including special characters such as \n 
to force a line feed. You can alsoinclude 
details to tell printf how to print program 
variables and expressions. These print- 
—formats always start with a % sign. In 
fig. 1 %d has been used. The %d 
indicates that the variable should be 
printed as an integer. %c would have told 
printf to print it as a character. If you want 
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Char 


to print a real % symbol using printf you 
should use \% in the words to print string. 
There should be one expression or vari- 
able for every % format specification. 

The printf function always writes its 
output to a device known as stdout. This is 
normally the computer screen. 

Note that in the second printf the value 
of MAX__INT —1 is printed. The compiler 
replaces MAX_INT by its value (32767) 
and so the coding works. If MAX__INT 
were within the quoted string of printf the 
compiler would not have replaced it! 

The next part of the program in fig. 1 


uses a while loop. The loop in the program 
keeps going round and round until you 
press the (ESC) key. The loop used in the 
program could have been written more 
elegantly - but we can afford to be more 
elegant later. The while loop structure is: 


while ( condition } 
f 


statement: 
statement; 


het 


The statements enclosed between the 
curly brackets are executed over and over 
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again so long as the condition is true. 
When the condition becomes false the 
loop is terminated and control passes to 
the statement after the closing curly 
bracket. The statements within the curly 
brackets make up what is known as a 
compound statement. 

In a similar fashion to SuperBasic, in C 
conditions are actually expressions. If the 
expression evaluates to zero then the 
condition is false, otherwise it is true. 

Some of the comparison symbols in C 
are different than those used in Super- 
Basic. For example: 


is not equal to 
is equal to 

is greater than 
is less than 
not 


TAY Ih 


Using == instead of = when compar- 
ing values is something that most new- 
comers to C find very confusing. Only use 
= in value assignment statements — if you 
use it when comparing values you will get 
unexpected results. 

Several conditions can be linked 
together (as in SuperBasic) using the 
following logical operators: 


&& means AND 
|| means OR 


(two of SHIFT and the key at the top right 
hand corner of a QL keyboard). 


Parentheses () can be used inside 
complicated conditions (as in Super- 
Basic). The While loop in fig. 1 keeps 
going until inp__char is equal to the (ESC) 
key or num_characters is euqal to the 
highest valid integer value minus 1. If 
num__characters were allowed to get 
bigger than 32767 then it would end up 
holding an incorrect value. 

Within the while loop, the getchar 
function is used to read a character from 
the standard input device (stdin) into the 
variable named num_—char. The basic 
syntax is: 


variable _.name = getchar (); 


The variable can be either an int or a 
char. The stdin device is, by default, the 
keyboard. 

If the value of inp__char is not equal to 
the Ascii code for the (ESC) character 
the value of the num_characters is 
increased by one and the character is 
displayed on the screen using putchar. 
The basic syntax of the if statement is: 


if ( condition ) 


statement; 
statement; 


If the condition evaluates to true then 
the statements enclosed within the curly 
brackets are executed. As with the while 
loop, the condition is actually an express- 
ion — if it evaluates to zero then the 
condition is false, otherwise it is true. You 
can also use: 


if (condition ) 


statement; 
statement; 
} 
else 
{ 
statement; 
statement; 


a 


Itis possible to nest if statements within 
each other. 

The putchar function is used to write a 
single character to the standard output 
devide (stdout). This means that we get to 
see the characters as we type them in — 
the getchar function does not display 
anything on the screen. The basic format 
is: 


putchar (character); 
The character used in putchar can be: 


the name of a char variable 

an integer representing an Ascii charac- 
ter code 

a character enclosed in single quotes 


Instead of using putchar we could have 
used: 


printf (“%c”", inp__char); 
'* %c prints it as a character — %d would 
print its decimal Ascii code*/ 


When the while loop is terminated the 
results are printed together with the 
message “Press a key to quit”. The 
program then waits for a key to be 
pressed by using the getchar function. 
This technique of waiting for the user to 
press a key before reaching the end of a 
program is useful if you plan to run the 
finished product in a windows environ- 
ment such as that provided with Qram. In 


a windows environment the program runs 
within a window and all of the output to 
stdout appears in the window. 

When the program finishes the window 
is closed and its contents disappear. If 
you're not careful then the window dis- 
appears before you get a chance to look 
at the results. The extra getchar at the end 
of fig 1 stops the program from finishing 
before user reads the final message. 


Exercise 1 


Try some of the following — it’s probably 
best to handle each of them as a separate 
exercise and undo the changes before 
carrying on with the next one. 

1. Miss out the brackets from the 
condition in the while or if statement. 

2. Remove the line that sets inp__char- 
acters to an initial value of zero. 

3. Remove the line that sets inp__char 
to an initial value of zero. Try running the 
compiled program a few times. 

4. Change the program so that it stops 
when the user presses ‘Q'. 

5. Remove the %d print_format defini- 
tion from one of the printf statements. Also 
try including more print_formats than 
there are values to be printed. 

6. Write a program to find out what 
happens when an int variable gets bigger 
than 32767. Start off by giving the int a 
value of, say, 32760 and go round a while 
loop which prints the integer value and 
then adds one onto it until the user 
presses the (ESC) key. You needn't 
bother printing the character that the user 
types in each time you go round the loop. 

7. You can do arithmetic on char 
variables in the same way as with int 
variables. Write a program to find out what 
happens when achar variable gets bigger 
than 255. Take the same kind of approach 
as you did with the int example above — 
but starting from a value of, say, 250. Try 
to print the value of the char variable as an 
integer value (%d) and as a character 
(%c) using the printf function. 

The listing in fig 2 counts the number of 
characters, words, alphabetic characters, 
spaces and numeric digits that you type 
in. You should be able to understand most 
of it already. It introduces a few new C 
standard library functions and the struc- 
ture of a for loop. In the next few 
paragraphs. we will only consider the 
new concepts. 

In fig 2 the main processing loop is 
driven by a for statement. The basic 
syntax of this is: * 


for (initial statements separated by commas; condition; 
statements for end of each repetition separated by commas) 


if 

\ 
statement; 
statement; 
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#define TRUE 1 


#define FALSE 0 
/* Defines some symbolic constants */ 


main ( ) 
{ 
int num_characters, /* Counts total characters */ 
num_spaces, /* Counts spaces */ 
num_alphas, /* Counts alphabetic characters */ 
num_numerics, /* Counts number of numeric digits */ 
num_words, /* Counts words */ 
within_a_word; 
char inp char; 


printf("This program counts characters and words etc\n"); 
printf(" until you press ESC\n\n"); 


inp char = 0; 


for ( num_characters = 0, num_alphas = 0, num_spaces = 0, 
num_numerics = num_words = 0, 
within_a_word = FALSE; 

(inp_char = getchar()) != ESC; 
++num_charactere ) 


putchar(inp char); 
if ( inp_char ==" " ) 
++num_spaces; 
if isalpha(inp char) ) 
++num_alphas; 
it isdigit(inp_ char) ) 
++num_numerics; 
inp_char == ’ ’ || inp char == ‘\t’ || 
inp_char == ‘\n‘ ) 


within _a word = FALSE; 


if ( twithin_a word ) 
{ 


if ( isalpha(inp_ char) ) 
++num_words; 
within_a_word = TRUE; 


} 

} 

printf("\n\nThe numbers entered were\n\n"); 

/* Write the results to stdout */ 

printf("Alphas Numerics Spaces Words\n"); 

printf ("%6d89d%7d%6d\n", num_alphas, num_numerics, 
num_spaces, num_words); 

printf("\n\nPress a key to quit"); 

inp_char = getchar(); 

/* Wait for key before terminating */ 


lg 2: Multi-countin 
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All of the statements between the curly 
brackets are executed on each pass 
round the loop 

The initial statements are all executed 
once before the first pass through the loop 
of curly bracketed statements. The initial 
statements are not executed again as the 
program loops round the bracketed state- 
ments. Note that the initial statements are 
separated by commas! The coding in fig 2 
illustrates that you are allowed to use: 


variable = variable = variable 
= expression; 


to assign values to many variables in a 
single statement. 

The condition is similar to the type used 
in while and if statements. The loop 
continues so long as the condition is true. 
In fig 2 the condition is a little more 
complicated than the ones that we've 
seen before. It is: 


(inp__char = getchar()) !=ESC; 


The positioning of the brackets is 
important. You may find that you need to 
read through the next few paragraphs 
more than once (slowly) to make sense of 
them. 

The getchar(} function requires an 
empty set of brackets. The outer set of 
brackets force the value returned by 
get_char() to be passed into inp__char. 
The results of this is then compared with 
ESC. 


Without the outer brackets the value 
returned by getchar() would be compared 
with the ESC character. If it was |= ESC 
then the result is TRUE (non-zero) other- 
wise it is FALSE (zero). This TRUE or 
FALSE result (non-zero or zero) would 
then be fed into the inp__char variable. 
The final result of the condition is then 
based on whether or not inp__char now 
contains zero or non-zero! This would 
guarantee that the program didn’t work as 
desired! 

This type of condition is more elegant 
than the one that we used in the while loop 
of fig 1. It means that the statements 
within the loop do not need to check if 
inp—char is equal to ESC — if itis ther the 
loop is automatically terminated. 
Although this new condition is more 
elegant than the old version, itis also a bit 
harder to understand, 
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The statements for the end of each 
repetition are executed at the end of each 
pass round the loop. If many statements 
are included they must be separated by 
commas. Note the use of the statement + 
+num__characters — this has the same 


effect as num Ocharacters = num 
__characters + 1 (it is a useful short- 
hand). 


Some of the if statements in fig 2 look a 
bit different from before. The syntax used 
is: 
if (condition) 
statement ; 
statement 2; 


No curly brackets have been included. 
This means that statement1 is only execu- 
ted if the condition is true. Statement2 is 
not included as part of the if statement. 
The basic idea is that if you want to make 
several statements dependent upon a 
condition you must use curly brackets to 
form a compound statement. If only one 
statement is to be dependent then the 
curly brackets are not needed — but you 
can include them if you want to. 

The way that the code is indented in the 
example makes it look obvious what 
is happening. However, remember that 
the C compiler could not care less about 
the way that your code is indented. 
However you choose to indent the code, 
statement2 will always be executed if no 
curly brackets are used! 

This principal applies to while and for 
loops also. For example: 


while (condition) 
statementt; 
statement 2; 


Because curly brackets have not been 
used, only statement1 is executed as part 
of the loop. Statement2 only happens 
after the loop has finished. 

Most of the coding within the for loop 
uses some standard library functions to 
work out whether or not inp__char is 
alphabetic, a numeric digit etc. Each of 
these functions return TRUE or FALSE. 
Note the use of the == symbol when 
comparing inp__char with a space. 


If (inp__char == ‘’) 


If a single = symbol were used it would 
mean: make inp__char equal to a space 
(Ascii code 32). If inp__char is then 0 
(which it won't be — it will be 32!) the 
condition is FALSE, otherwise itis TRUE. 
The accidental use of = instead of == 
can cause newcomers to C a lot of 
frustration! 

The only tricky bit involved in the loop is 
keeping track of the number of words that 
have been entered. It is made even more 
tricky when you try to define what you 
mean by a word and what kind of 
characters you expect to be used to 
separate words from each other. In fig 2 
words are assumed to begin with an 


alphabetic character and are separated 
by spaces, tabs and newline characters. 

Whenever a character that is a word 
separator is detected the within 
__a__word variable is set to FALSE, this 
indicates that we are not currently inside a 


’ word. 


When any other character is detected 
nothing happens if within__a__word is 
TRUE. 

If within__a__word is false it means we 
are possibly at the beginning of a new 
word. If the inp__char is alphabetic then 
the num.__words variable is incremented 
since we really are at the beginning of a 
new word. The within__a_word variable 
is set to TRUE so that the next input 
character doesn't cause num__words to 
be updated again. 

The printf function near the end of fig 2 
illustrates another facility. The use of %6d 
as a print format tells the compiler to print 
the integer value right aligned in a 6 
character field. This makes the printed 
values line up correctly underneath the 
headings that are output by the previous 
printf. 


Exercise 2 

1. No check has been made to stop 
num__characters (or any of the other 
integers) from exceeding MAX_INT. 
What would be the consequence of this 
happening? Change the code so that it 
cannot happen. > 

2. Try replacing the == in the check 
inp__char == ‘' by a single = symbol. 

3. Make the program count the number 
of lines that you enter. The (ENTER) key 
on the keyoard enters a ‘\n' (newline) 
character. 

4. Try printing some of the results with a 
print format that is too small (eg %1d). 

5. Change the program so that word 
separators are any characters which are: 


not alphabetic 
and not one of: 


(apostrophe) 
- (hyphen) 
_— (underscore) 
digits 0 through 0 


Compiling and running 

If the Digital C disk is on flp1_. and the 
program code is in a file named 
myprogram__c on flp2__use the following 
to compile, link and run it. If error messa- 
ges appear when you run the compiler 
you should edit the C program and 
compile it again. 


exec__w flp1_cc (ENTER) 
flp2__myprogram —p —m (ENTER) 
exec__w flp1__cg (ENTER) 
flp2__myprogram_exe flp2__myprogram 
—m —p —ne —d/flp1_. (ENTER) 
exec__w flp2__myprogram__exe 


Remember that Digital C source program 
files must end with —c. 
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SOFTWARE 
We care for the QL 


HOME BANKER PLUS - £19.95 (3.5" disc) Version 4.0 
Home Banker Plus lets you and your expanded QL keep control of your finances. Each Home 
Banker file stores details of up to 14 accounts in complete security (the four figure code 
supplied with the program can be changed). Regular payments and receipts can be input 
as standing orders and are added to your account automatically. 

Home Banker Plus is completely menu-driven, and all transactions are accessed using the 
cursor keys or single letters (as preferred). Options available include Balance (showing your 
actual balance and the balance your bank tells you), Statement (allowing detailed state- 
ments to be printed out or viewed on the screen), Interest (which calculates approximate 
interest paid), Mini-Statement (giving the last twelve transactions), Full Balance (the 
balance of all accounts together with the total balance) and Search (which finds transactions 
without needing to look at a statement). 

One of the major powers of Home Banker Plus is the Analysis option that shows you how 
much you have spent in certain areas (e.g. computing) over a period of time. Analysed 
balances and statements are available, and all the categories used can be viewed or printed 
at the touch of a key. 

So that you do not need to load dated information every time you use Home Banker Plus, 
the package includes a module that can remove old information from the main data file, 
storing it elsewhere on the disc. 

For those of you without memory expansion, a microdrive Home Banker is available at 
£14.95. Although this version does not have all the features described above, it is still a 
powerful tool (standing orders and analysis are available). 

"If any software will convince doubters it is worthwhile keeping tabs on their finances, Home 
Banker will do it. It is a pleasant program to use, needs no specialist knowledge of banking 
or accounts, and the routines for entering transactions are fast .. ." SQLW, 3/89 


DJW COMPENDIUM - £9.95 (3.5" disc) 

This compendium disc contains a selection of past DJW programs, such as Diary, QLuck 
(the five-dice game), Qodebreaker (can you guess the hidden code), Housewife (the 
cookery and shopping program) and Software Directory. 

"an interesting and useful program" (Housewife) SQLW, 2/87 


Available from: 
DJW Software (QLW11), 11 Pound Close, Bramley, Basingstoke, 
Hants. RG26 5BL 
Tel: (0256) 881701 Fax: (0256) 882750 


Bese. Payment by Access, Mastercard, Visa 
(quote number and expiry) or GK cheque 
WISA or postal order payable to 'DJW Software’. 
Overseas orders please add £2 p&p 


eee Orders are normally despatched within 
3 days of receipt 
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ONE MAN'S SYSTEM 


a cartridge and allow their selection by at 
most two key presses. 

At the age of 18 I started a joint math- 
ematics and computer science course at 
Hull University. In the first year we learnt 
Pascal and had several programming as- 
signments on the departmental IBM 
compatibles. My experience with Superbasic 


Itis now eight years since I bought my first 
computer, a Sinclair ZX Spectrum, at the 
age of 13, back in 1982. At the time it was 
sufficient for my needs — learning abut 
computers and playing games! There was 
little opportunity at school to use comput- 
ers, and there was little choice in home 
computers at the time. 

A few years later, I wanted a more pow- 
erful micro. At this point, in 1984, the 
Sinclair QL was making its appearance, 
and it sounded like a wonderful machine. 
Several months later, once I had managed 
to get together sufficient money (part of 
which came from selling the Spectrum), I 
finally bought one. By then the dreaded 
kludge had gone, and the QL was fairly 
near completion. The keyboard was much 
better than the old Spectrum rubber one, 
and even now, after using many ‘proper’ 
keyboards, it still seems good. I am still 
using that machine, and have had no prob- 
lems, except towards the end of the first 
year when returned it under warranty for 
a faulty microdrive mechanism to be re- 


Neil Gordon trusts the 
QL with his health and 
education. 


ficient for my limited requirements. [used a 
Saisho TV / Monitor formy vdu,ajobwhich _ proved to be very useful since it has many 
itis still happily fulfilling. Dixons supplied similarities with Pascal. I bought a Pascal 
a suitable lead. In this first year, theabsence compiler (by Computer One) which al- 
of commercial software encouraged me to lowed metotry out programsathome. The 
do more programming than I might other- programming assignments required two 
wise have done. This time of exploring the _ reports to be submitted: an initial one, and 
QL’s abilities was very enjoyable. then a final one with the completed pro- 
Slowly my software collection increased, gram. I bought a Brother HR-5 thermal 
though generally only with games. ] bought _ printer which provided high enough qual- 
QL User from the start, and frequently cop- __ ity output to be suitable for the reports. It 
ied the listings published in it, and later in also allowed me to take printed listings to 
QL World. To simplify finding and loading copy onto the Departments micros. 
particular programs on a microdrive car- By this stage, I was reaching the limita- 
tridge, which often contained 40 or more tions of a standard QL. Quill with 
files, | wrote a program to list all the fileson _ microdrives is not very inspiring! Miracle 
Systems’ 512K Expanderam was available 
fairly cheaply at the time because of the 


paired. 

The only leisure software available back 
then consisted of two text adventures (West 
and Zkull, both produced by Talent) and 
Psion Chess. | bought Zkull and the chess 
game from W H Smiths, since QL software 
was available in shops at the time. Now 
nearly everything has to be bought by mail 
order, but I have had no problems with 
such companies. These two games have 
probably been the cause of more intensive 
thought than any other software I have 
used! ] am nearly always beaten by Psion 
Chess, while Zkull has yet to be com- 
pleted. One benefit with the QL was that, 
since no one else had one, there was no 
problemat school, where not pirating soft- 
ware was deemed strange among my 


fairly low cost of ram chips back then, so I 
bought one from Byteback, together with 
the QFlash toolkit rom which gave me a 
‘permanent’ ramdisk. 

This system proved adequate for writing 
a summer vacation essay about comput- 
ers! In fact Quill has beena very good word 
processor, capable of all the tasks I have 
put it to, which included writing cvs. 

I was given a disk drive system for 
Christmas in 1988. This consisted of a 
Cumana interface together with a single, 
double sided, double density drive. Strong 
Computer Systems supplied the system, 
which included 10 disks. This improved 
things a great deal, and the entire system is 
excellent. 

Over the past five years ] have bought 


TS. 
At first the basic QL hardware was suf- 


The author with his compact QL set-up. 


1@ REMark LISTING 2 - *Skeleton’ program to produce blood glucose 

20 REMark results analyser from stats program. 

3@ REMark Load stats first, then merge this with it. 

210 PRINT #titlewindow;’*BLUUD GLUCOSE STATISTICS.’ 

300 defaultdevice$=’ mdvl_glucose * 

318 maxval=25 

320 minval=0 

3465 PRINT #datawindow; TU 9;°Blood Glucose against days.’ 

3475 PRINT #datawindow; TO 9;*Lines for Max,Uptimal & Min.’ 

3477 PRINT fdatawindows\\Vim Vm Vo VV Vs 1 

3681 REMark Oraw lines for optimum max,normal&min blood alucose levels 

3682 RESTORE 3683 

3683 FOR x=1 [0 3 

3634 READ y 

3635 LINE #datawindow, leftorigin, (y-minval) #yscale TO 140, (y-minval) #yscale 
3686 LINE #datawindow, leftoriain, (y-minval) #yscalethiyposn TO 140, (y-minval) #yscalethiyposn 
3687 END FOR x 

3683 DATA 3.5,5,8 
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10@ REMark LISTING 1. 

110 FEMark Ned! Wordon. i998 

120 REMark General statistical analysis of 

discrete data_ 

13@ PEMark Holds ome months figures, and ca 
Iculates 

146 REMark the mean and modal values, both 
overall 

156 REMark and by fields. (NB 7 fields) 

160 REMark Best keeping to 2 digit data tor 
table layout. 

176 REMark Ie. Integers in range -3¥ to 99. 
166 init 

198 init_display 

260 REMark title 

2108 FRINT #titlewindow; “SfATISTILAL ANALYSE 


J A 


Be be Bo baw 
m™ OF & a bo 


displayal ldata 
meri 
STP 
DEFine FRUCedure init 
REMark inmitralise data & main data stru 
ure. 
RES TURE 
REMark detault values 
defaulttiles="No Name’ 
defaultdeyvice$="’mdvi * 
Maxva ls 
minva l=- 99 
nullval=100:REMark used to signify ‘no 
data value. 
340 xmine2:ReEMark left hand position of da 
ta for printing 
358 DIM daysdata (41,7) :REMark 1 month,7 te 
sts a day. 
360 resetdata 
376 END DEFine® init 
380 DEFine PRUCedure resetdata 
390 RKEMark tnitialise to nullval - program 
Tanores such values 
FUR x=1 70 41 
FUR y=1 To 7? 
daysdata (x,y) =nullval 
END Fuk y 
END FUR x 
END DEF irre 
DEFine PROCedure init display 
LUCAl wwidth, height, xpos, ypos.n 
MLIDE 4 
UPEN_NEW #4,scr Sl2x2n6avxe 
FAPER #3,4 
CLs #4 
CLOSE #3 
READ nunmberotwindows 
FOUR n=3 TU numberofwindowst2 
READ wwidth, height, pos, ypos 
OPEN NEW fr, con, 
WINDOW #h,wwidth, height, “posts, ypostS 
FAPER Fn, 
CLO fr 
WINDOW dh, wwidth, heiaht, xpos, ypos 
FAPER fn, 7 
INK #n,@ 
CLS #n 
NET A 
REMark window data 
baTA &:REMark number of windows 
datawindow=3 
LATA Bez, 158, 20,30 


See € 


GS 
ee 


On oh Oh oR GR 
Pod 


sO F ty ha oe 
oa] 


oo 
= 


or th oon in 
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690 menuwindow=4 

708 DATA 96,798,355, 36 

718 inputwindow=5 

720 DATA 302,11,26, 222 

740 resultswindow=6 

740 DATA 130.130,355,116@ 

758 statuswindow=7 

76 DATA 250,11,25,108 

770 titlewindow=3 

73 DATA 156,11,330,16 

798 KEMark end window data 

S00 END DEFine imit_display 

316 DEFine PROCedure menu 

826 LOCal ch¥, choice 

330 REPeat loop 

B4e PRINT #statuswindow;’ Present File is 
> ?sdetaultti les 

50 LLS #menuwindow 

bu PEIN #menuwindow,’ 1 - Load’ \’2 - Sav 
Ba - Input Data’ \'’4 - Results’ \'S - 

VG - Wut 4 - Graph’ 

3) FEPeat chloop 

3) ch#= INKEY$ (-1) 
Bye IF ch# INSTR ” 
T chloop 

2ue END REPeat chloop 
1a LLS #menuwindow 
Pel) Chorceschs 

F398 SkLect UN choice 
240 =1: loader 

Woe S22 S5aver 

Fb =: adder 

270 =4: results 

Fag a 
FIO 
Luu 
igi 


234567" <> @ THEN EXI 


=7:9raphs 
END SELect 
1920 LLS #finputwindow 
1636 END FEPeat loop 
1648 END DEFine menu 
1056 DEFine PROCedure adder 
19690 REMark input data 
1e78 LuUCal daynum, testnumber, imputstrinag, 
ThPUtVA |e 
1680 FREFeat adder loop 
1890 INPUT #inputwindow: Day - *3 inputstr 
pated 
1166 IF inputstrimeg#=’? 
oP 
1114 
1126 
169% 
1138 
number 
1144 IF testnumber<1 OF testrumtesrs / THEN 
BO TO lise 
1156 INFUT #1nputwindow;’ Vata Value - | 
neutstrings 
11466 IF inputstrings="? 
1178 datavalue=nul iva 
1186 ELSE 
1199 datava lue=inputstrings 
1268 IF datavalue<minval Uk datava luerma 
xVal THEN 0 TO 115% 
1216 END IF 
122 daysdata (daynum, testnumber) =datavalu 
e 
1238 
1246 


THEN EXIT adderlo 


daynum=inputstrinat ® 
TF daynums1 UR dayrumts1 THEN uo fo 


INPUT Finputwindow:’ lest No ~ "test 


THEN * 


disp laydata (daynum . (testnumber) 
END REPeat adder loop 


258 CLS #inputwindow 

1260 CLS tresu! tswindow 

1270 END DEFine® adder 

1256 DEFine FRULedure printdata () 
1290 REMark print data in red if <@, 
ack af >= 
1300) FEMark 
131@ IF s=nullval 
13240 [Fk «<8 THEN 
1330 INK #datawindow, 2 

13440 PRINT #datawindow; -= 

13568 INK #datawitidow, ¥ 

136" ELSE 

1370 PRINT #datawindow; = 

14586 END [ft 

1390 END DEFIne printdata 

1408 DEFine FRULedure displayal ldata 

1416 Lilal =,y.num 

1420 CULS fodatawincdow 

1436 PRIN! #oatawindow; * Date- 

Date. Time. 

AT #datawindow, 17,41 
FEINT #datawindow:  (N@egativesred) © 
1460 FUR rum=1 [ul 2 

1478 FUR tet=1 lu / 

1420 Al Fdatawindow, 1,xmint2c# (mum=2) +ts 
tA; 
1490 
1548 
1518 
1520 
1530 


mH Bl 


x=nulilval means 1anore 
THEN FE durn 


1446 
145 


FREINI Fodatawindow; tst 
END Fur tst 
END FUR rum 
FUR rum=1 [ul cst 
<=<M1A 
1544 y=num 
1550 LF mum?16 |HEN s=xmintic5: y=y-16 
156 Al Fodatawindow, ytl,«-1 
1578 PRIN] #datawindow: rum 
15508 FUR tst=1 fu / 
1594 A! Fodatawindow,yti.x+ (tst#4) 
1400 Printdata daysdata (num, tst) 
16416 ENU FUR tst 
1626 END FUR rum 
1640 RKEMark draw table 
1640 LINE #datawindow, 16,6 TO 14,89.5 To 6 
»22.o 
1650 LINE #datawindow, 
1668 LINE #datawindow, 
124,59_5 
16706 LINE fdatawindow, 71.0 TO 71,39_5 
TéASA FND DEFine displaydata 
1670 DEF ine PROLedure displaydata (mo, tstno) 


16,89.5 TO 63,89_5 
63,0 TO 63,59.5 To 


1708 
1/1 
17206 
17:30 
1/49 
1750 
1760 


REMark display one item of data 


LUMA) x,y 
“=emMin+ ts trios 
y=notl 

IF mnoz16 THEN y=y-16:x=x+2 

AT #datawindow, y,* 

PRINT #datawindow;’ 

1/778 AT B#datawindow,y,« 

1730 printdata daysdata (no, tetno) 

1798 END DEFine 

1300 DEFine PROCedure saver 

lsl6 LULal devicenames, fi lenames, names. num 
ber, tethum 

1s2o INPUT #inputwindow;’* Save Data - Sure? 
* cht 

lisse IF NUT (ch=="y*) THEN FETurn 

1840 PRINT #inputwindow;’* File Device (defau 
it-* ;defaultdevice$;’) - 73 


1350 
1360 
1370 
1856 


1=70 


INPUT #inputwindow; devicenames 
IF devicenames="*"* THEN 
devi cenames=def aul tdevicet 
ELSE 
detau | tdevi cet=devicenamet 
1960 END IF 
1710 {NFUT #inputwindows* File Name - *;f1 
lenaned 
1yvo o IF t1lenames="" THEN 
13930 ti lenamet=defaultfi let 
1748 ELSE 
1750 deftaultfi les=fi lenamet 
1yv4o END IF 
19/8 namet=devicenameséfi1 lenamet 
1920 FRINT Bienuwitdows “SAVING. . _* 
13798 DELEIE namet 
“000 LUPEN NEW #15, nanet 
FOR nunber=1 TO 31 
FUR tstrum=1 [fu 7 
PRINI #15; dayedata (number, ts trum) 
END FUR tstnum 
2650 END FUR number 
2460 LLUSE #15 
2078 END DEFine saver 
SY30 DEF ine FROLedure loader 
“090 Luval cht, devicenamed, names, f1 lenamet 
sHumber, ts trum 
2160 INPUT Binputwindow; ’ Loader 
chet 
“110 
2120 


2040 


- Sure? 7; 


IF NOT (ch#=5* y’?) THEN RETurn 
FRING Finputwindow; File Device (defau 
lt-* ;defaultdevicets') - *5 
2130 INPUT BFinputwindow; devicenamet 
£140 TF devicenames="° THEN 
2150 dev icename#=detrau | tdevices 
2160) ELSt 
2170 detaul tdev1ces=devicenames 
2130 END IF 
2190 INPUT #inputwindow;’ File Name - ‘sf) 
lenames 
2206 defaultfi les=f1 leanames 
2219 nameF=devicenameskti |enames 

PRINT #meruwindow; ? LUADING...’ 
OPEN_IN #15, names 

FOR mumber=1 Tu 231 

FUR tstrum=1 TU 7 

INFUT #15; daysdata (number, tstruum) 

END FUR tstrnum 

END FUR number 

LLOSE #15 

displayalldata 

CLS #resultswindow 
END DEFine loader 
DEFine FPROCedure zapper 
REMark remove data 

LuCal cht.num, tstnum 

INPUT #inputwindow;’ ap data - Sure’ 


a) 
re Se 
Sorsss 


fr woh BRD bo be Ro Bo bob 
SW We OG Ph bo bo bo bo bo Bo bo 
hie & 


(SOO S 


MMM NN ht 


IF NUT (ch$==" y’) 
resetdata 
detaultfile#="’No file’ 
CLS #resultswindow 
displayal ldata 
242@ END DEFine zapper 
2436 DEFine PROCedure quiter 
244@ REMark quit program 
2450 LOCal cht 
2460 INPUT #inputwindow;’ Wuit Program - Su 
re? * sch 


THEN RETurn 
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2470 
24506 
2498 


IF NOT (ch$==" y’) 

FUR maa 
CLOSE #r 

2568 END FUR nh 

2510 NEW 

2520 END DEF ine 

2540 DEFine PROCedure results 
7548 Loval 

nce 

25508 

ULTS...? 

25608 
2578 

eld & overall. 

253@ DIM meanval (7,2) -REMark 
21s no of data 1tems 

2590 

max bevel) 

2600  [ean=O: totalitems= 

2610 FOR tn=1 Tu ? 

2628 FUR m=1 Tu cst 


tenprdayedata (nm, tr) 


heansnearn+ temp 
increment totalitems 


ELSE 


2730 
2748 
2758 
2/760 
“778 


END IF 
END IF 
END FUR hn 


two joysticks. One, a Voltmace Delta QL, 
eventually broke; however, it had suffered 
valiantly at the hands of myself and as- 
sorted others who have enjoyed the won- 
ders of Sinclair’s QL. Unfortunately, this is 
no longer available. My present joystick, a 
Wiz Card, is actually more of a cursor pad, 
and | tend to use it more as a mouse substi- 
tute, a job for which itis eminently suitable. 

As Thave required new languages for my 
course, | have bought the necessary com- 
pilers, This is one of the major benefits of 
the QL. Such compilers are available for 
most of the major languages, and are fairly 
cheap compared to those on other comput- 
ers. | use the Prospero Fortran compiler, 
again bought from Strong Computer Sys- 
tems. It is very good, but requires the sup- 
plied eprom to be present. This means I 
cannot use the Oflash eprom with it. This is 
unfortunate, since it would be useful at 
times to use a ramdisk rather than the disk 
drive with the compiler. It is for this reason 
that I have not invested in a mouse, since | 
prefer not to continually have to fit and 
remove such eproms. I considered one of 
the multi-rom adapters, but they seemed 
expensive. 

I tried some assembly programming, but 
have only written fairly simple programs 
so far, suchas adding new functions, which 
is so easy on the QL. 

Last year ] attended one of the Northern 
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THEN FETurn 
TOU fumberotwindows 


th. o,mean, totalitems, temp, varia 
PRINT #irenuwindow; “ LALLULA) LN’ \* RES 


max level=maxval—- iminval*® (miriva lo) ?) 
REMark first find mean and mode by f1 


DIM modatval (7,maxlevel) ,overal |mode ( 


IF daysdata (n, tr) <2nul lval 
meanval (tn, 1) =neanval (tr. 1) +teme 
increment meanval (tn, 2) 

{rh (tempc® AND minval<6) THEN 
Increment modalval (tn,maxval-temp 
increment overal lmode (maxval-temp 


Increment modalval (tn, temp) 
Increment overal lmode (temp) 


2780 
2799 
23He 


END FOR th 
CLS #resultswindow 
PRINT #resultswindow; *Mean and Mode b 


y test’ \? times <° 


2510 
2820 
2o30 
2540 
2350 
Mote T at 3) 
25376 
29388 
Patani) 
d=1 
L900 
(th, 2)) 
L918 
2720 
“val 
2730 


15 total, 


FUR tn=1 TO ? 
modal=6: occurances=0 
FOR n=l TO maxlevel 
IF modalval (thn) >occurances THEN 
occurances=modalval (tn,n) 
moda l=r 
END IF 
END FOR nh 
IF mearival (tn, 2) =6 THEN meanval (tn, 2 


meanval (th, 1) = (meanval (tn, 1) /meanval 


round meanval (tn, 1) 
IF modal?maxval 


THEN modal=-modal+tma 


PRINT #resultswindow; tn; TO 3; meanval 


(to, 1) 570 7smodal 


2940 
2I5e 
2760 
2970 


THEN 


2930 
2790 
300u 
teme 
3018 


3020 
40389 
3040 
libel) 
3H68 
2) 


Computer Shows organised by Sector Soft- 
ware, which was very interesting. | am 
using the Spellbound spelling checker | 
bought there to check this article as J write 
it! Any spelling errors are due to my forget- 
ting to switch it on, rather than any defi- 
ciencies in the software. 

One problem with the hardware I have 
collected is the number of bulky, hot and 
noisy power adapters they require. I have 
alleviated the problems somewhat by fit- 
ting a small shelf on the back of my compu- 
ter desk where they now reside. 

Being diabetic, I keep a daily record of 
my blood glucose levels. I have finally 
begun to computerise these records, which 
allows me to get statistical data about this 
information. This is very useful since try- 
ing to see patterns in a table of figures is 
difficult, and calculating average values 
and so onis very time consuming. None of 
the Psion software seemed quite right for 
this job, since | wanted a full month’s fig- 
ures on screen at once, and to get a plot of 
the values together witha moving average. 
For this reason I wrote a SuperBasic pro- 
gram to do the job. I have included a gen- 
eralised listing of this (listing 1),sinceitmay 
be useful for others, being suitable for any 
integer data input on a daily basis. I have 
also included a short program (listing 2) to 
merge with this to produce the specialised 
version. To create the latter version, first 


temp =mear 
round temp 
FRINT #resultswindow; ’ Overall 


END FOR tn 
IF totalitems=0 THEN totalitems=1 
mean=nean/ totali tems 

REMark round mean 


to mearest integer 


Means? 5 


REMark now get the standard deviation 


Varlance=0 

FUR n=l To 31 

FOR tn=1 TO 7 
IF daysdata (rm, tr) <2nullval 
Varlance=variancet+ (daysdata (mn, tn)” 


THEN 


load the general version, then merge the 
short program withit. The listings are fairly 
self explanatory, and contain comments. 

Of all the languages I now know, 
Superbasic is probably one of the best. It is 
useful in the same way as the shell lan- 
guage found on Unix systems; for exam- 
ple, to write prototypes. Unlike that, it is 
fairly friendly (in terms of error messages, 
many is the hour I have spent searching for 
anerror which was caused by using acolon 
instead of a semi-colon. The only real prob- 
lem with Superbasic is its speed, but this 
can be improved by using one of the Basic 
compilers available. 

Since speed is not always that important, 
I have not yet bought one of these. It is 
surprising justhow many similarities there 
are between the OL and a Unix system, as 
in the use of pipes and multi-tasking. 

The OL was and continues to be an excel- 
lent micro for students and anyone requir- 
ing a useful computer. Just how good it 
was is seen from the fact that although I 
would quite like a better-supported micro, 
there is at the present time no micro more 
suited to my needs than my trusty QL. 

Finally, [have passed my finals, getting 
a First Class Honours degree, and will 
hopefully continue for either a Masters or 
a PHD, and some of the credit must go to 
my QL which was a useful tool and 
teacher! 
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3078 END IF 3600 INK #datawindow,4 

368a END FOR tn 361@ REMark y axis 

3090 END FUR nh 3620 LINE #datawindow, leftorigin,® TO left 
3100) variance= (variance/totali tems) - (mean origin, 109 

2) 36306 REMark dividing line 

3116 PRINT #resultswindow;’ Standard Deviat 3640 LINE #datawindow, leftorigin.hiyposn T 
lon’ O 14@,hi yposn } 
3120 -PRINT #resultswindow;’ (to mean) ="5 3656 REMark upper « axis (y=@) 

(INT (SORT (variance) #16) ) /10e 3660 LINE #datawindow, leftorigin, -minval*y 
3136 modal=@: occurances=¥4 scalethiyposn TO 146,-minval*yscalethi yposn 
3146 FOR n=1 [TU maxlevel 
3156 IF overa! Imode (nm) occurances THEN 3676 REMark lower x axis (y=0) 
31690 occurances=overal Imode (rm) 3630 LINE #datawindow, leftorigin, -minval*y 
3178 modal=n scale TO 146,-minval¥yscale 
3186 END IF 3690 INK #datawindaow,@ 
319@ END FOR n 3700) xstep=1 
3206 IF modal>maxval THEN modal=-modal+ma 3718) oy=nullval 
xval 3720 FOR n=1 TO 31 
32196 PRINT #resultswindow;* Uveral] Mode=’ ; 3730 IF (m=17 OR n=1) THEN 
modal 37408 ox=leftorigin 
3220 END DEFine results 375@ M=Ox 
3230 DEFine PRUCedure round (x) 3760 END IF 
324@ IF x-INT (x) >.5 THEN 3770 FOR tn=1 TO 7 
3256 x=INT (x) +1 3730 x=xk+xXStep 
3260 ELSE 3790 y=daysdata (n, tn) 
32798 x=INT (x) 3300 IF oy=nullval AND daysdata (n, tr) <on 
3286 END IF ullval THEN oy=y:ox=x 
329@ END DEFine increment 3310 IF daysdata (n, tr) <snullval THEN 
33006 DEFine PROCedure imcrement (x) 4BZO LINE #datawindow; ox, (oy-minval) ys 
33160 «=x+1 calethiyposrn* (n<17) TO x, (y-minval) *yscalet 
3320 END DEFIne increment hiyposn* (n<17) 
3330 DEFine PRULedure graphs 3330 Ox=x: Oy=y 
3340 REMark display graph of data, and calc 3340 END IF 
ulate moving average. 3350 END FOR tn 
3350 LOCal ox,oy,x,y,n,tn,xstep, lertorigin 33860 END FOR n 

»hiyposn,mvavear, loopn,mvavchs, ysca le, gmaxv 3870 REMark calculate & draw moving averag 
al.gminval 4" 
3369 REMark get moving average parameter - 3880 IF mvavpar<>-1 THEN 
3370 INPUT #inputwindow:’No. of days for m 3390 mVavPar =mvavpar/2+.5 
Oving average?: * ;mvavchs 3900 INK #datawindow, 2 
33860 IF mvaveht=*’ THEN 3710 ox=leftorigaint+mvavpar*7-3. 5S*xstep 
3390 mvavPar=~1 3920 oy=nullval 

3440 ELSE 39306 FOR loopn=mvavpar TO 32-mvavpar 

34190 mvavpar=mvavchs 3940 movingaverage=0 
3420 IF mvavpar<1 UR mvavepar>31 THEN GU T 3950 number of i tems=@ 
0 3378 3960 FOR n=loopn-mvavpart+ti TO loopn+mvav 
343@ END IF Par-1 

3446 CLS #datawindow 3IIW78 FOR tn=1 TO 7 

3458 CLS #inputwindaw 393¢ IF daysdata (n, tr) <>nullval THEN 
3460 INK #datawindow.4 39908 movingaverage=mMovingaveragetdays 
3470 IF mvavpar<>-1 THEN PRINI #datawindow data (n, tn) 

3TO 93’ Graph with ’;mvavpar;’-day moving av 4060 Increment numberof1 tems 

erage.’ 4010 END [F 

3486 AT #datawindow,1/,2:PRINI #datawindow 40208 END FUR tn 

;minval 4036 END FUR hn 

3496 AT #datawindow, 3, 4:-PRINI #datawindow; 4040 x= loopn*7+ leftorigin-16#7* (loopn>=1 
maxva 7) -3.5%#xstep 

3500 AT #datawindow.3,2--RINI #datawindow; 40590 IF numberofitems=6 THEN 
minval 40640 y=oy 

3510 AT #datawindow, #4, 2:PRINI #datawindow; 4070 ELSE 
maxva | 4030 y=mnov i mgaverage/ number of i tems 

3526 AT Htdatawindow,7,5:PRINI #datawindow; 4090 END IF 

"1 2 3 4 3 67 © 9 iO 42 12 to 14 1S 4100 IF oy=nullval THEN ox=x:oy=y 

16° 4110 IF numberofitems<>6 THEN 

3530 AT #datawindow.10,17:PRINI #datawindo 4120 LINE #datawindow; ox, (oy-minval) #ysc 
ws’ (Date) ’” alethiyposn* (loopn<17) TO x, (y-minval) #ysca 
3540 AT #datawindow,17,5:PRINT #datawindow let+thi yposn* (ioopn<1 7) 

3°17 186 19 260 2t 22 23 24 25 26 27 28 29 30 4130 Ox=*:Oy=y 

31° 4146 END IF 

3550 INK #datawindow,® 4156 IF INT (loopn) =16 THEN ox=leftorigin 
3566 hiyposn=5e0 4166 END FUR loopn 

3570 = yscale=50/ (maxval-minval) -REMark y sc 4170 INK #datawindow,@ 

aling factor 4130 END IF 

3530 leftaorigin=1l2 41990 PRINT #menuwindow;* ANY KEY 10° \? CONTI 
39790 REMark axis NUE. ..? 


Tere RET aie: | 
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40 


10 MODE 4 

20 WINDOW 512,256,0,0 
30 PAPER O:INK 1:CLS 
40 initialise 

So start 

60 menu 


3399 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3599 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3799 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3999 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
“2)) 
4120 
4130 
4140 
X1+70 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


4250 IF tempang< >2*PI:ang2=tempang: tempang=angl:an 


g1=PI 
4260 


DEFine PROCedure presuf 
CLS#4 
WINDOW#O ,436 ,24,39,11 
INPUT#0;"Prefix: “;preg$ 
CLS#0 

INPUT#0;"Suffix: ";suf$ 
CLS#0 

END DEFine 


DEFine PROCedure change_col 
IF fink< >2 
IF fink=4 AND seg<>3*INT(seg) /segt+l 
fink=184:sink=248 
ELSE 
fink=2:sink=208 
END IF 
ELSE 
fink=4:sink=224 
END IF 
END DEFine 


DEFine PROCedure change_bw 
IF fink< >248 
IF fink=120 AND seg: >3*INT(seg) /segi+l 
fink=0:sink=0 
ELSE 
fink=248:sink=248 
END IF 
ELSE 
fink=120:sink=120 
END IF 
END DEFine 


DEFine PROCedure fill _pie 
tempang=2*PI 

INK fink 
ang=ang1l:angle:x1=x:yl=y 


IF angi<PI AND ang2>PI:tempang=ang2:ang2=PI 


ang=ang2: angle: x2=x:y2=y 

X3=70+xK1:x4=70+x2 

IF angi<¢=PI AND ang2<=PI 
IF x3«70 AND x4<70:x3=70 
IF x3+°70 AND x4>70:x4=70 
FOR x=x3 TO x4+.2 STEP -.2 


y3=45+height+SQRT((1-((x-70)/xrad)*2)*(yrad 


y4=45+height+(x-70)*TAN(ang1) 
y5=45+height+(x-70) *TAN(ang2) 


IF (x1+70270 AND x2+70>70 AND x<«x2+70) OR ( 


<7Q0 AND x2+70<70 AND x>x1+4+70) 
LINE *,¥74 TO x,¥5S 
ELSE 
IF x>70 
LINE: *,¥3. TO x .¥4 
ELSE 
LINE x,y3 TO x,y5 
END IF 
END IF 
NEXT x 
END IF 


ang=angl:angle:xl=x:yl=y 


Geoff Wicks 
improves on 
Easel to cut pie 
charts to fit dtp 
documents or 
other uses. 


THREE Dimensional Pie is a program 
which allows you to design pie charts for 
display on the screen or for printing to a 
dot matrix printer. A special feature of the 
program is that the charts can easily be 
entered into documents produced by 
desktop publishing programmes. Pie 
charts can, of course, be produced by 
Easel, but they are rather lifeless. Three 
Dimensional Pie aims to produce better 
pies than Easel and with one exception — 
the program does not support highlighting 
— is more versatile than Easel. 

When you load 3DPie the basic pie 
appears in the centre of the screen. To the 
left is a menu window and to the right a 
status window. Practically all the menus 


THREE DIMENSIONAL PIE 
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make use of the function keys, but if you 
have an averson to this sort of menu, don’t 
panic. Mnemonics are also used, so you 
can get the same result by pressing the 
initial letter of the menu item. The 
mnemonics work with both upper and 
lower case leters — one of the 
advantages of the SELect ON keyword. 

The main menu F1 (or “I” or “i”) is for 
Input. Inputting can be done in one of 
three ways and whenyou opt for input you 
are presented with the input menu: 

F1 (or “D” or “d”) is for Demo. It uses 
data contained in lines 9940. You could 
change these lines to enter your own 
data. Line 9890 is the number of slices in 
thepie (maximum 12) and the title line 
9900 the labels, and line 9910 the data. 
Line 9930 is for prefix and suffix if 
required. 

F2 (or “M” or “m") is for Manual. 
Choosing this option opens a window in 
the centre of the screen and you are 
invited to enter the title of your pie. The 
screen is cleared and you can then enter 
your first label followed by the data for that 
label. This process is repeated for a 
maximum of 12 slices. Should you require 


81989 Geoffrey Wicks 
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4270 ang=ang2:angle:x2=x:y2=y 
4280 X3=70+xK1:x4=70+x2 

4290 IF angi>=PI AND ang2>=PI 
4300 IF x3<70 AND x4<70:x4=70 

4310 IF x3°70 AND x4>70:x3=70 

4320 FOR x=x3+.2 TO x4 STEP .2 

4330 y3=45+height-SQRT((1-((x-70)/xrad)°2)*(yrad 
*2) } 

4340 y4=45+height+(x-70) *TAN(ang1-PI) 

4350 y5=45+heligeht+(x-70)*TAN(ang2-PI) 

4360 IF (x1+70<70 AND x2+70¢70 AND x>x2+70) OR ( 
X1+70270 AND x2+70°70 AND x¢x1+70) 


4370 LINE x,y4 TO x,y5 
4380 ELSE 

4390 IF x«70 

4400 LINE x,y4 TO x,y3 
4410 ELSE 

4420 LINE x,yS TO x,y3 
4430 END IF 


4440 END IF 

4450 NEXT x 

4460 IF side$="Outline" 

4470 INK sink 

4480 FOR x=x1+70.2 TO x2+69.8 STEP .2 


4490 y3=4S+height-SQRT((1-((x-70)/xrad)*2)*(yra 
d*2)) 
4500 LINE x,y3 TO x,y3-2*height 


4510 NEXT x 

4520 END IF 

4530 END IF 

4540 IF tempang:< >2*PI:angl=tempange: tempang=2*PI 
4550 IF filcolg$="Colour ":change_col:ELSE :change_ 
bw 

4560 INK 7 

4570 END DEFine 

4599 : 

4600 DEFine PROCedure move_label 

4610 Lab$="Manual ":Dat$="Manual " 

4620 CLS #4 

4630 FOR n = i TO seg 

4640 FOR o = 1 TO 2 

4650 IF o=1 


4660 x=1xZ%(n) :y=lyZ(n) 
4670 ELSE 
4680 x=dx%(n) :y=dy%(n) 


4690 END IF 

4700 INK 2:CURSOR x.y,0,0:print_ld 
4710 OVER 1 

4720 REPeat move_ld 


4730 key=CODE (INKEY$(-1)) 

4740 SELect ON key 

4750 = 192 

4760 CURSOR x,y,0,0:INK O:print_ld:x=x-1: INK 
2:CURSOR x,y,0,0:print_ld 

4770 = 200 

4780 CURSOR x.y.0,0:INK O:print ld:x=x+1:INK 
2:CURSOR x,y,0,0:print_ld 

4790 = 208 

4800 CURSOR x,y,0,0:INK O:print_ld:y=y+1:INK 
2:CURSOR x,y,0,0:print_ld ; 

4810 = 216 

4820 CURSOR x,y,0,0:INK O:print_ld:y=y-1:INK 
2:CURSOR x,y,0,0:print_ld 

4830 = 32:EXIT move_ld 

4840 = 27: menu 

4850 END SELect 


4860 END REPeat move_ld 

4870 OVER 1:INK 7 

4880 CURSOR x,y,0,0 . 

4890 IF o=1 

4900 PRINT Label$(n):1x%(n)=x:ly%(n)=y 
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4910 ELSE 

4920 PRINT pre$;num(n) ;suf$:dx%(n)=x:dy%(n)=y 
4930 END IF 

4940 NEXT o 

4950 NEXT n 

4960 view_pie 

4970 END DEFine 

4999 : 

5000 DEFine PROCedure print_ld 
5010 IF o=1l 

5020 PRINT Label$(n) 


5030 PRINT#4,"LABEL ";n;": ";Label$(n),"x: "3x%,"y 
: a 

5040 ELSE 

5050 PRINT pre$;num(n);suf$ 

5060 PRINT#4,"DATA “;n;": ";pre$;num(n);suf$,"'x: 
Ys oes ry rh 


5070 END IF 

5080 END DEFine 

5199 ; 

5200 DEFine PROCedure design 

5210 WINDOW#O, 260,146,129, 70:CLS#0:BORDER#0,2,248 
5220 AT#0,1,8:PRINT#0, "BORDER", , borcol$ 

5230 AT #0,2,8:PRINT#0," EFFECT", ,effect$ 

5240 AT#0,3,8:PRINT#0, "SIDE/BASE",sideg$ 

5250 AT#0,4,8:PRINT#0,"FILL", ,filcol$ 

5260 AT#0,6,8:PRINT#O, "LABELS", , Lab$ 

5270 AT#0,7,8:PRINT#0, "DATA", ,Dat$ 

5280 AT#0,9,8:PRINT#0,"1st DRIVE" ,dig$ 

5290 AT#0,10,8:PRINT#0,"2nd DRIVE" ,d2$ 

5300 INK#0,7:AT#0,12;5:PRINT#0,"PRESS INITIAL LETT 
ER TO CHANGE"\" ‘ESC' TO RETURN": INK#Q, 
4 

5310 REPeat loop 

$320 key=CODE(INKEY$(-1)) 

5330 SELect ON key 


5340 = 27:menu 

5350 = 61,113:STOP 

5360 = 66,98 

5370 IF borcol$="0n ":borcol$="O0ff": borcol=0:EL 
SE borcol$="0n ":borcol=7 

5380 AT#0,1,8:PRINT#0, "BORDER", ,borcol$ 
5390 BORDER 1,borcol 

S400 = 69,101 

5410 IF effect$="Solid ":effect$="Shadow": ELSE 
:effectg$="Solid " 

5420 AT #0,2,98:PRINT#0, "EFFECT", ,effect$ 
5430 = 83,115 

5440 IF side$<>"Outline" 

5450 IF sidet="Stipple” 

5460 Sside$="Solid ":bcol=7 

5470 ELSE 

5480 side$="Outline":bcol=0 

5490 END IF 

5500 ELSE ; 

5510 side$="Stipple":bcol=248 

ao20 END IF 

5530 AT#O,3,8:PRINT#0, "SIDE/BASE" ,side$ 
5540 = 70,102 

5550 IF filcol$<>"Outline"” 

5560 IF filcolg$="Colour " 

5570 filcol$=""B/W ":fink=248 

5580 ELSE 

5590 filcolg$="Outline" 

5600 END IF 

5610 ELSE 

5620 filcolg$="Colour ":fink=2:sink=208 
5630 END IF 

5640 AT#0,4,8:PRINT#0,"FILL"”, ,filcol$ 
5650 = 76,108 


5660 Datlab$=Lab$:datlab: Lab$=Datlab$ 
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less than 12 slices, pressing Enter when 
you are asked for the label will allow you to 
leave the sequence. (If you wish to have 
four segments, enter the label and data 
for each of the segments but, when asked 
to input the fifth label, just press enter). 

F3 (or “I” or “i") is for Import. This option 
allows you to import data from the Psion 
programs. There are two import 
routines built into 3DP. The program first 
assumes that you are importing from 
Easel and tests for this. If the import is not 
successful it is aborted and a second 
routine is tried which assumes you are 
importing from Abacus by column. The 
importing routines have been kept as 
simple as possible and may not work in 
every case. If your attempted import fails, 
use the manual option which is simple and 
quick. 

F2 (or “A” or “a”) is for Alter. This allows 
you to change the design of the pie. On 
choosing this option you are presented 
with the alter menu: 


F1 (or “H” or “h") to alter the Height. 
F2 (or “X" or “x") to alter the X-radius. 
F3 (or “Y" or “y") to alter the Y-radius. 


These three options all work in the 
same way. You alter the value by means 
of the up and down cursor keys. The 
altered value can be followed in the status 
window. When you have the value you 
require you press Space and the pie is 
redrawn using your new values. The 
permitted ranges are: 


Height: 0-30 
X-rad: 10-50 
Y-rad: 5-35 


You will need to experiment to get the best 
values for your pie. Themore “elliptical” 
your ellipse is, the greater theimpression 
of depth. Unfortunately although your pie 
will be, mathematically speaking, 
correctly sliced, it may not look right. For 
example a 10% slice may look larger than 
a 15% slice. The nearer to a circle your 
tet 


Average gas consumption per 
quarter. 
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Average gas consumption per 
month, 


ellipse is, the less distortion there is. Itis a 
question of choosing the best 
compromise. If you are disappointed with 
the design in out line mode, persevere 
Often the effect is much better when the 
pie is filled in. It also helps if you keep the 
height small. 

F4 (or “D" or “d”) is for Design. When 
you choose this option a window opens in 
the centre of the screen in which the 
Design Menu is displayed. The menu 
works entirely by mnenomics. 

Border switches the border on and off. 
You will see this happening as you press 
the key. If you intend to use your pie ina 
desktop publishing program, you may find 
it better to switch the border off. 

Effect toggles between Solid and 
Shadow. Solid draws a complete pie. 
Shadow gives the effect of a floating circle 
with its shadow underneath. 

Side/Base toggles between Outline, 
Stipple and Solid. Outline uses the same 
colours for the base and the sides as fill 
(see below). Stipple colours them in a 
black and white stipple and Solid in white. 

Fill toggles between Outline, Colour 
and BW. Outline is the default mode and 
draws the pie in outline form. Colour fills in 
the pie in colour and B/W in black and 
white. The former gives a better result if 
you want to view the pie on the screen or 
to photograph it; the latter is better for use 
in desktop publishing. 

Becuse some unusual shapes have to 
be filled in, the fill routine is the 
slowest part of the program. You are 
advised to design your pie first in outline 
form and add the colour as the last 
feature. The colouring in is done in either 
two or three different colours. The choice 
is made automatically so that no adjacent 
segments are in the same colour. The one 
exception is a pie of seven segments 
where slices one and seven are in the 
same colour. 

Labels and Data both toggle between 
Inside, Outside, None and Manual. There 
are a number of labelling possibilities and 
the detailed use of these options is 
described in detail below. 

One and two allow drive 1 and drive 2 to 


Sinclair/QL World November 1990 


5670 
S680 
S690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5799 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
S880 
5890 
5900 
5910 
5920 
5930 
5940 
5999 
6000 
6010 
6020 
6030 
6040 
6050 


AT#0,6,8:PRINT#0, "LABELS", , Labs 
68,100 
Datlab$=Dat$:datlab:Dat$=Datlab$ 
AT#0,7,8:PRINT#0, "DATA", ,Dat$ 
49,33 
AT#0,9,24: INPUT#0,d1$ 
= 50,64 
AT#0 ,10,24: INPUT#0,d2$ 
END SELect 
END REPeat loop 
END DEFine 


DEFine PROCedure datlab 
IF Datlab$<«>"Outside" 
IF Datlab$<«>"Inside "” 
IF Datlab$="None " 
Datlab$="Manual " 
ELSE 
Datlab$="Inside " 
END IF 
ELSE 
Datlab$="Outside" 
END IF 
ELSE 
Datlab$="None 
END IF 
END DEFine 


DEFine PROCedure import 

CLS#4 

WINDOW#O0, 436,24,39,11 

PRINT#0,"LOAD "&d2$ 

AT#0,0,5: INPUT#0, load$ 

IF load$=""":AT#0,0,10:INPUT#0, load$:load$=d2 


$&load$ 


6060 
6070 


d2$=load$(1 TO 5) 
IF load$(LEN(load$)-3 TO )<«<>"_exp":load$=load 


$&"_exp" 


6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 


IF load$=d2$&"'_exp": CLS#0:RETurn 
Title$=load$(6 TO LEN({load$)-3) 
count=0:counti=-1:ag="" 
OPEN_IN#7, load$ 
REPeat in 
key=CODE( INKEY$ (#7) ) 
IF EOF( #7) :CLOSE#7: RETurn 
SELect ON key 
= 10 
IF count>0:num(count)=a$ 
seg=count:count = count+1 
IF count<¢ »count1:CLOSE#7:EXIT in 
ag="" 
34:1F a$<>"";Label$(count)=a$:a$=""":count 


1=counti+1 


6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 


= 45 TO 122: a$=a$&CHR$ (key) 
= 44:ag="" 
END SELect 
END REPeat in 
count=13:ag="" 
OPEN_IN#7, load¢ 
REPeat in 
key=CODE ( INKEY$ (#7) ) 
IF EOF(#7):EXIT in 
SELect ON key 
10:count=0 
34:IF a$<>"": Label$(count-12)=a$:ag=""" 
45 TO 122:a$=a$&CHR$( key) 
IF count<13:num(count+1)=a$:seg=count+l 
= 44:count=count+l:ag="" 
END SELect 
END REPeat in 


6390 CLOSE #7 
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6400 
6599 
6600 
6610 WINDOW#0 , 260,146,129, 70:CLS#0: BORDER#0, 2, 248 / 
6620 AT#0,0,1:INPUT#0,"TITLE: 


END DEFine 


6630 PRINT#0,\,,”" LABEL", ,"VALUE" 

6640 FOR n=1 TO 12 

6650 PRINT#0,n \ 
6660 seg=n , 
6670 AT#O,n+1,16: INPUT#0, Label$(n) \ 
6680 IF Label$(n)="":seg=n-1:RETurn S 
6690 AT#O0,n+1,32: INPUT#0,num(n) 

6700 NEXT n 

6710 END DEFine 

6799 : 

6800 DEFine PROCedure save_pie 

6810 CLS#4 

63820 WINDOW#O, 436,24,39,11 

6830 PRINT#0,"SAVE "&d2$ 


6840 AT#0,0,S:INPUT#0,saveg$ 

6850 IF saveg="":AT#O,0,10:INPUT#O, 
$&esaves 

6860 d2$=saveg(1 TO 5) 

6870 CLS#0 

6880 IF save$=d2$:RETurn 

6890 PRINT#0,"INVERSE (Y/N)?" 

6900 keyf$=INKEY$(#0,-1) 

6910 CLS#0 

6920 PRINT#4,Tities$ 

6930 IF key$=="Y":WINDOW 512,256,0,0:RECOL 7,0,9,0 
,9,0,0,0 

6940 SBYTES save$,131072,32768 

6950 IF key$=="Y":RECOL 7,0,0,0,0,0,0,0 

6960 END DEFine 

6999 : 

7000 DEFine PROCedure label_pie 

7010 ang=ang3 

7020 angle 

7030 x=70+x:y=45+height+y 


sSave$:save$=d2 


7040 IF ang3<PI:y=y-4:ELSE :y=y+16 

7050 IF ang3>PI/2 AND ang3<¢3*PI/2:x=x+2:ELSE :x=x- 
6 

7060 IF Lab$="Inside ":1x%(n)}=x:ly%(n)=y 

7070 IF Dat$="Inside ":dx%(n)=x:dy%(n)=y-4 

7080 IF ang3<PI:y=y+14:ELSE :y=y-20-2*height 

7090 IF ang3>PI/2 AND ang3<3*PI/2:x=x-3:ELSE :x=x+ 


2 

7100 IF Lab$="Outside":1x%(n)=x:ly%(n)=y 
7110 IF Dat$="Outside"”:dx%(n)=x:dy%(n)=y-4 
7120 END DEFine 

7199 : 

7200 DEFine PROCedure alter 

72L0 CLS#sS 

7220 PRINT#5,;\ ™ 
D'\\" F3 Y-RAD"\\" 
7230 REPeat loop 


MENU"\\" F1 HEIGHT"\\" F2 X-RA 
F4 DESIGN"\\" FS TITLE” 


7240 key=CODE(INKEY$(-1)} 

7250 SELect ON key 

7260 = 232, 72, 104:n=height:min=0:max=15:f$="H" 
:ypos=3:EXIT loop 

7270 = 236, 88, 120:n=xrad:min=10:max=50:f$="X": 
ypos=4:EXIT loop 

7280 = 240, 89, 121:n=yrad:min=5:max=35:f$="Y":y 
pos=5:EXIT loop 

7290 = 244, 68, 100:design:RETurn 

7300 = 248, 84, 116:CLS#4:WINDOW#0 ,436,24,39,11: 
INPUT#O," ";Title$:CLS#0:RETurn 

7310 = 27:menu:RETurn 

7320 = Bl, d137SITOF 

7330 END SELect 


DEFine PROCedure manual Z 
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Average gas consumption per 
quarter. 

be changed. The new drive is directly 
inputted onto the screen. Drive 1 is used 
for initial loading and loading gprint__prt. 
Drive 2 for saving. If you wish to change 
the default drives this can be done by 
altering line 9620. 

When you have completed your design 
changes you can leave the design menu 
by pressing ESC. 

F5 (or “T” or “t") is for Title. When you 
choose this option, the present title is 
erased and you are invited to enter the 
new title. This title appears precisely in 
theplace that it will in the finished screen 
so you can place it accurately in relation to 
the pie. 

We now return to the main menu. 

F4 (or "S” or “s”) is for Save. The pie is 
redrawn and at the top of the screen you 
are invited to enter the filename. The 
default drive is displayed and if you do not 
wish to alter this just press enter and then 
enter your filename. You are then asked if 
you wish to invert the image. The screen 
is then aved. Should you wish to use your 
picture in desktop publishing you should 
remember that the screens in these 
programs are smaller than the full QL 
screen and some experimentation or 


HAR 


Average gas consumption per 
month. 
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improvement with a graphics program 
such as Eye-Q may be necessary. It is 
also advisable to inverse the screen 
before saving. 

F5 (or “D”" or “d") is for Dump. The pie is 
redrawn, gprint__prt is loaded and a hard 
copy of the pie is made. Should you wish 
to use a different screen dump then 
change line 8480 of the program. 

“Q" or “q” is for Quit. Its use in thi orin at 
almost any part of the program allows to 
leave the program. 

"L"' or “I” or “P” or “p” is for Label or 
Prefix’ Suffix. 

“M" or “m" is for Move. 

Both of these options are covered 
below in the section on labels. 

ESC can be used almost anywhere in 
the program to return to the main menu. If 
you make a mistake and press the wrong 
key so that you enter either the import 
routine or the save routine, you can leave 
both routines by pressing ENTER twice 
and then ESC once. 

There are two sorts of labels in the 


ree ——| 


MAR 


Average gas consumption per 
month. 


3Dpie. In default mode the title of a 
segment, label, is printed outside thepie 
and the value of the segment, data, is 
printed inside. The default options can be 
changed using the alter menu. The pie 
can also be drawn without either the data 
or the label displayed. 

You may wish to add a prefix (eg “£") or 
| a suffix (eg "%") to the data. This is done 


by pressing “L” or “l,, for Label or “P” or 

“p’ for Prefix’Suffix. You can then enter 
the required characters at the top of the 
screen. 


Labels 


The printing positon of the labels will 
rarely be correct, although the computer 
will hazard a guess which in most cases 
will be approximately right. You can 
however change the display position: first 
of all press ESC to access the main menu 
and then F2 to draw the pie. You then 
press “M” or “m” to move the labels. The 
label of the first segment will change from 

white to red and can be moved around the 
| screen using the cursor keys. 
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7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
#530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7799 
7800 
7810 
7820 
" \\ ” 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
79399 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 


THEN"\\" 


END REPeat loop 
CLS#5 
PRINT#5;\" ALTER"\\" 
PRESS"\\" 
REPeat loop 
key=CODE( INKEY$(-1) ) 
SELect ON key 
32:EXIT loop 
208 :n=n+1 
216:n=n-1 
END SELect 
IF n>max:n=min 
IF n«min:n=max 
AT#6,ypos,8:PRINT#6, " " 
AT #6,ypos,8 
IF f£$="H" 
PRINT#6,2¥*n 
ELSE 
PRINT#6,n 
END IF 
END REPeat loop 
IF f$="H":height=n 
IF f$="K":xrad=n 
IF £$="Y¥":yrad=n 
view_pie 
REPeat loop 
IF CODE(INKEY$(-1))=27:menu 
END REPeat loop 
END DEFine 


WITH"\\" BP AND LY\\ 
SPACE" 


DEFine PROCedure data_in 
CLS#5 
PRINT#S,;\ “ 
F3 IMPORT" 
REPeat loop 

key=CODE( INKEY${-1))} 

SELect ON key 
81,113:STOP 
27:menu 
232, 68, 
236, 77, 
240, 73, 

END SELect 
END REPeat loop 
END DEFine 


MENU"\\" Fi DEMO"\\" F2 MANUAL 


100: initialise:demo:view_pie 
109: initialise:manual:view_pie 
10S5S:initialise:import:view_pie 


hou on tt ow 


DEFine PROCedure view_pie 
CLS:CLS#4 
PRINT#4, Title$ 
IF Titleg$="NO DATA LOADED"”:RETurn 
draw_pie 
tot=0:ang2=0 
FOR n=1 TO seg:tot=tot+num(n) 
numi=0 
FOR n=1 TO seg 
numl=numi+num(n)/tot 
num2=numi-num(n)/(2*tot) 
angl=ang2 
ang2=num1i*2*PI 
ang3=num2*2*PI 
IF filcol$<>"Outline":fill_pie 
slice_pie 
END FOR n 
IF filcol$<>"Outline” 
INK 7:FILL O 
ELLIPSE 70,45+height,xrad,yrad/xrad,PI/2 
IF side$="Outline” AND "Effect$"="Solid " 
LINE 70+xrad,45-height TO 70+xrad,4S5+height 
LINE 70-xrad,4S5-height TO 70-xrad,45+height 
END IF 


Average gas consumption per 
8240 END IF quarter. " . x 


8250 FOR n=1 TO seg 
8260 PAPER 0:INK 7:OVER 0 


8270 IF Lab#<>"None ":CURSOR 1x%(n),ly%(n),0,0: — ge 
PRINT Label$(n) Fe oer “te, 
8280 IF Dat$<>''None ": CURSOR dx%(n) ,dy%(n) ,0,0: 7 47 14 Fag, 


PRINT pre$;num(n);suf$ Pa 7 
8290 NEXT n Z ey 
8300 END DEFine \ 
8399 

8400 DEFine PROCedure choice 
8410 REPeat loop 

8420 key=CODE( INKEY$(-1)) 
8430 SELect ON key 


8440 = 232, 73, 105:data_in 

8450 = 236, 86, 118:view_pie 

8460 = 240, 65, 97:alter 

8470 = 244,83,115:view_pie:save_pie 

8480 = 248,68,100:view_pie: a=RESPR(1400):LBYTES 


dig&"eprint_prt',a:CALL a 


8490 = 2/7:menu 

8500 = &1,113:STOP 

9510 = 77,109:move_label 

8520 = 76,80,108,112:presuf 

8530 END SELect - 
8540 END REPeat loop When the label is in the correct position 
8550 END DEFine ; press space and the colour returns to 
8599 : white. The data now changes to red and 
8600 DEFine PROCedure start so the process is repeated for each of the 
8610 WINDOW 454,240,31,10:BORDER 1,7 segments until the pie is completed. It is 
8620 OPEN #4,scr_:WINDOW#4,448,24,33,11:BORDER#4 6 important to bear in mind thatin a large pie 


8630 CSIZE#4,1,0:INK#4, 7 the positon of the label can be outside the 


8640 PRINT#4, “THREE DIMENSIONAL PIE", ,1989 Geoffr 
ey Wicks" 

8650 WINDOW 454,240,31,10:BORDER 1,7 

8660 draw_pie 

8670 END DEFine 

B799 : 

8800 DEFine PROCedure menu 

8810 OPEN#S,scr_:WINDOW#S, 75,146,48,70:BORDER#5,2 
,234;CLS#5 

8820 CSIZE#5,0,0: INK#5,4 

8830 PRINT#5,;\ " MENU"\\" Fi INPUT"\\" (F2 VIEW" 
\\" F3 ALTER"\\" F4 SAVE"\\" FS DUMP" 

8840 OPEN#6,scr_:WINDOW#6, 75,146,395, 70:BORDER#6, 2 
,234:CLS#6 

8850 CSIZE#6,0,0: INK#6,4 

8860 PRINT#6,\" STATUS"\\" Ht: "\" x-rad:"\" y-rad 
PN" Labels" \" Dates \\" Dre x” Deze” 

8870 AT#6,3,8:PRINT#6, 2*height :AT#6,4,8&:PRINT#6,xr 
ad:AT#6,5,8:PRINT#6, yrad 

8880 AT#6,7,8:PRINT#6, Lab$(1):AT#6,8,8:PRINT#6, Dat 
$(1):AT#6,10,5:PRINT#6,d1$:AT#6,11,5:PRINT#6,d2$ 
8890 choice 

8900 END DEFine 

8999 : 

9000 DEFine PROCedure angle 

9010 ang=2*PI+ang 

9020 x=SQRT(yrad*2/((1/COS(ang)*2)-1+(yrad*2/xrad* 
2))) 

9030 y=SORT(xrad*2/{(1/SIN(ang) *2)-1+(xrad*2/yrad* 
2))) 

9040 ang=ang-2*PI 

9050 IF ang>PI/2 AND ang<=PI:x=-x 

9060 IF anzg>PI AND ang<=3*PI/2:x=-x:y=-y 

9070 IF ang>3*PI/2 AND ang<=2*PI:y=-y 

9080 END DEFine 


9199 : 
9200 DEFine PROCedure slice_pie Average gas consumption per 
9210 FOR slice=1 TO 2 quarter. 
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screen and thus cannot be seen. 
If this happens do not panic. The 


position co-ordinates are displayed at the 9220 IF slice=1l:ang=ang1:ELSE :ang=ang2 
top of the screen and you will see them 9230 angle 
change with the use of the cursor keys. 9240 x=70+x:y=45+heightt+y 
Eventually the label will be printed in the 9250 LINE x,y TO 70,45+height 
screen area. When this routine is used the 9260 IF ang>PI AND effect$="Solid ":LINE x,y TO x, 
label and data options on the design y-2*height 
menu are changed to manual and remain 9270 NEXT slice 
so until changed or until fresh data is 9280 label_pie 
loaded. You can leave the routine at 9290 END DEFine 
anytime by pressing ESC 9399 
When put into writing this procedure 9400 DEFine PROCedure draw_pie 

appears unwieldly and complicated. In 9410 IF effect$="Shadow":r=2+INT(height/5):ELSE :r 
practice it is not, and it works smoothly =0 
and quickly. 9420 INK bcol:FILL 1 

¢ This, in summary, is the recommended 9430 ELLIPSE 70+2*r,45-height-r,xrad,yrad/xrad,PI/ 
working order: 2 
1} Load the relevant data into the 9440 INK 7:FILL O 
programme. 9450 IF effect$="Solid " 
2) Alter the height, x-radius and y-radius 9460 ELLIPSE 70,45-height,xrad,yrad/xrad,PI/2 
3) Add the prefix or suffix to the data label 9470 INK becol:FILL i 
is required. 9480 LINE 70+xrad,45-height TO 70+xrad,45+height 
4) Alter the approximate _ labelling 9490 LINE 70-xrad,45-height TO 70-xrad,45+height 
position if a different one from the default 9500 END IF 
position is required. 9510 INK 0O:FILL 1 
5) Move the labels to the exact position 9520 ELLIPSE 70,45+height ,xrad,yrad/xrad,PI/2 
required. . . 9530 INK 7:FILL 0 

! a Sheets ent dt Beene 9540 ELLIPSE 70,45+height ,xrad, yrad/xrad,PI/2 

‘i Pon 9550 IF effect$="Solid " 
ope you enjoy using the program as 9560 LINE 70+xrad,45-height TO 70+xrad,45+height 


much as | enjoyed the challenge of writing 9570 LINE 70-xrad,45-height TO 70-xrad,45+height 
9580 END IF 

9590 END DEFine 

9599 : 

9600 DEFine PROCedure initialise 


it. 


9610 bcol=0 

9620 d1$="mdvi_":d2$="mdv2_":Lab$="Outside": Datg$=" 
Inside ":preg="":sufg$="" 

9630 height=15: xrad=40:yrad=20 

9640 Title$="NO DATA LOADED" 

9650 DIM num(12):DIM Label$(12,12) 
9660 DIM 1x%(12):DIM ly%(12):DIM dx%(12):DIM dy%(1 
2) 

9670 borcol$="0n ":borcol=7 

9680 effect$="Solid " 

9690 side$="Outline" 

9700 filcol$="Outline” 

9710 END DEFine 

9799 : 

9800 DEFine PROCedure demo 

9810 RESTORE 9890 

9820 READ seg,Title$ 

9830 FOR n=1 TO seg 

9840 READ Label$(n) 

9850 END FOR n 

9860 FOR n=1 TO seg 

9870 READ num(n) 

9880 END FOR n 

9890 DATA 4,"AVERAGE GAS CONSUMPTION PER QUARTER ( 
1984 - 1988)" 

9900 DATA "“1ist","2nd","3rd","4th” 
9910 DATA 47.1,14.8,7.4,30.6 

9920 tot=num(1)+num(2)+num(3)+num(4) 
9930 suf$="%" 

9940 END DEFine 

10000 STOP 

10001 DEFine PROCedure update 

10002 DELETE mdv2_3Dpie 

10003 SAVE mdv2_3Dpie 

10004 END DEFine 
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Pe actor Software 


BRAND NEW 
MICRODRIVE CARTRIDGES 
£2.00 EACH ANY QUANTITY 


The best programs and peripherals for the QL 


QZ/QL to Z88 File Transfer 

Software and cable to connect the Z88 and OL and 
transfer any files between them. Includes Archive to 
Pipedream and back conversion routines. £25 


Amiga to Z88 File Transfer 


Software and cable to connect the Z88 and Amiga and 
transfer any files between them £25 


Spelibound 

A spelling checker that checks your spelling AS YOU 
TYPE. Based on a 30,000 word dictionary, works with 
Quill or The Editor V1.17 onwards on the expanded 
QL. £30 


Taskmaster 

A brilliant multitasking front end system which lets you 
use the OL as a serious machine. Multitask many 
programs at once. £25 


Files 2 

File handling utility with scores of features. Written 
by Peter Jeffries. Ideal enhancement for Taskmaster 
users. £12 


Write Turn 

Turn spreadsheets and documents on their sides with 
this excellent utility, works on Epson and compatible 
printers. £12 


QL World Index 

A complete index to the contents of QL World from 
its start to May 1988. Find articles and reviews in 
seconds, 160K+ of data compressed to fit into a 

128K QL. £6 


Flashback 

A very fast and slick database which has very few 
limitations. Will also convert Archive files. £25 
Flashback Special Edition is a greatly advanced 
version with lots of extra features including report 
generator, mail merge, label printing, etc. £40 


Touch Typist 
Excellent typing tutor that works. 200 lessons, graph 
of your progress, adjustable difficulty levels. ......... £12 


Ferret 

Find lost files fast with this file search utility which 
will read all your files on disk or mdv looking for a 
match with your search text. £12 


STD Index 

This index to all the dialling codes in the country 
executies from disk in 15 seconds. Know the place 
and it will tell you the number, know the 

number and it will tell you the place! 

(Expanded QOL only.}) £12 


 — 
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Page Designer 2 

This is a full feature desktop publisher that has to be 
seen to be believed. Ask for full details of this system 
and its support programs. £35 


Phillips CM8&833 Colour Stereo 


Monitor 
A stereo monitor for the OL, Amiga, ST or almost any 
computer. £260 


Don't miss the 
5th Northern Home 
Computer Show 


(Christmas Special) 
Saturday 1st December 1990 


Stokes Hall 
Church Road 
Leyland 
Lancashire 


This is the fifth show organised by Sector Software with 
100's of bargains for the computer user from around 30 
exhibitors. We are planning to make the best we have 
organised in the North West. Meet Sector Software, 
Digital Precision, Miracle Systems, EEC, as well as your 
other favourite OL companies all under one roof for a 
great day out. If you have a computer then you cannot 
afford not to be there. 


Stokes Hall is about 2 miles from Junction 28 of the M6 
{Leyland turnoff) or from Leyland Train Station, local sign 
posts will mark the way. Admission for adults is £1.50, 
children £1.00 and under 10's free. Bar and restaurant 
facilities will be available as usual throughout the day. 


Ring Sector Software on 0772 452414 for more details 
and a free map of how to get there. Stalls are available for 
£50.00 or £65.00 if electricity is required. 


> Sector Software ©O(E. 


Unit 13, Centurion Way Industrial Estate, Farington, Leyland, Lancs. PR5 2GU 
Tel: (0772) 454328/452414 (2 lines), Fax: (0772) 454680 


